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Möchten Sie als Software-Autor 
für den TRONIC-Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner für eine 
künftige intensive Zusammenarbeit zu finden. Der TRONIC-Verlag 
vereinbart mit seinen künftigen Software-Autoren pro veröffentlichte 
Seite (einschl. Programmbeschreibung) ein Honorar von DM 120,-. 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich für eine 
Veröffentlichung entscheidet. Die Auszahlung erfolgt also nicht erst 
nach Veröffentlichung in einer unserer Ausgaben, sondern früher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Programme) 
zur Darstellung im Heft heranzuziehen und abzudrucken. 



Einzusenden sind: 

- Programmbeschreibung 

- bespielte Cassette oder Diskette 

- Listing (mit Copyright) 

- Freiumschlag 




Haben Sie Interesse? Haben Sie noch Fragen? 



Setzen Sie sich telefonisch mit unserer Redaktion in Verbindung! 



TRONIC-VERLAG 

DIE REDAKTION 



Aus dem Inhalt: 




Ein interessantes Spiel für 
alle TI-99-Freunde. Mit tol- 
ler Graphik. Ein Spiel in 378 
Bildern 




Forth-Kurs 



Teil 5 in Computronic. Dies- 
mal: Bedingte Verzweigun- 
gen 




Laser 2001 

Neu - in Computronic! 
»Andromeda«, ein Pro- 
gramm für den Laser 2001 



Im Test 
der BIT 90 

Ein neues Gerät auf dem 
Computermarkt. Wir ha- 
ben ihn für Sie getestet. 
Lesen Sie hierzu Seite 5 
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TI-99 
Maya 



Ein Spiel in 378 Bildern 

ASC II - DEF Teil 2 

Definition von Charakteren 



C-64 



Monster- Attack 

Fremde Wesen greifen die Erde an. 

Block-Painter 

Eine der Stärken des C-64 besteht in 
der Möglichkeit, einen eigenen Zeichen- 
satz zu entwerfen. 

Epson-Printer 

Obwohl kein Interface benötigt wird, 
gestattet das Programm den Aus- 
druck aller Commodore-Zeichen 
inkl. Graphik. 

Laser 2001 

Andromeda 

Tödliche Strahlen greifen an. 



Superstat 

Superstat ist ein Statistikprogramm. 

Kleinstes Gem. 
Vielfaches 



Seite 10 
Seite 16 



Seite 22 
Seite 26 

Seite 30 



Seite 38 



Apple II 

Re versal Seite 46 

Das Spiel Reversal dürfte eigentlich fast 
jedem Computerbesitzer bekannt sein. 
Es ist auf vielen Computern als 
Programm verfügbar. Hier nun die 
Apple- Version. 

Disk-Menue-Generator Seite 49 

Dieses Programm erstellt für jede 
beliebige Diskette ein Menue-Programm. 

ZX-Spectrum 

Solitaire 

Ihre Aufgabe ist es, durch Springen mit 
den blauen Steinen ein verzwicktes Pro- 
gramm zu lösen. 



Seite 52 



Seite 68 



Seite 69 



Atari 

Painter 

Painter ist ein tolles Malprogramm für 
die Graphikstufe 8. Es benötigt min- 
destens 32 KB RAM. 

Hardcopy 

für Graphiks 7 + 8 

Dieses Programm ermöglicht, 

Bilder des Graphik-Mode 7 und 8 auf dem 

Drucker auszugeben. 

Dragon 32/64 

Hardcopy V 1 . 1 

Hardcopy erzeugt einen Bildschirm- 
ausdruck. 

VC-20 

Zyklo 

Ein Labyrinthspiel für die Grundversion 

Meteorit 

Herabfallende Meteoriten müssen 
abgewehrt werden. 

ZX-81 

Irrgarten 3 D 

Mit möglichst wenigen Schritten muß ein 
Freund aus dem Irrgarten befreit werden. 



Seite 56 
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Bericht über Computermesse in Köln 

Vorstellung: Der Bit 90 

Software 

Veranstaltungen 

Vorstellungen 
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Tips & Tricks 


Seite 6 


Forth-Kurs 

Teil 5, Bedingte Verzweigungen 
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Internationale Com- 
puter Show '84 Köln 

Mit einer Beteiligung von 221 Firmen 
aus 14 Ländern, darunter alle Bran- 
chenführer, erwies sich die C '84 auf 
Anhieb als Erfolg. Neben 158 deut- 
schen Firmen und einem Unterneh- 
men aus der DDR beteiligten sich 62 
ausländische Unternehmen, an der 
Spitze die USA mit 26 Ausstellern, 
gefolgt von Großbritannien, Taiwan, 
Japan und Italien. 

Die auf Kleincomputer für Beruf, Heim 
und Hobby spezialisierte Veranstal- 
tung ist eine Nachfolgeveranstaltung 
der erfolgreichen US Computer Show, 
die im vergangenen Jahr erstmals von 
der US-Botschaft in Zusammenarbeit 
mit der Köln-Messe durchgeführt 
wurde. 

Die C '84 bot auf überschaubarer Flä- 
che (über 16 000 m 2 ) eine umfassende 
Übersicht über den gesamten Klein- 
computer-Markt. Über Standort-Pro- 
gramme und branchenorientierte Pro- 
blemlösungen, über Zubehör aller Art 
sowie Computer- und Videospiele. 
Sonderveranstaltungen für Besucher 
der Computer- Show vertieften das In- 
formationsangebot der Aussteller, 
denn der Markt für Mikrocomputer 
wird immer unübersichtlicher, vor al- 
lem das Softwarenangebot. In der Bun- 
desrepublik kämpfen etwa 250 Hard- 
wareanbieter und rund 600 Softwa- 
renhäuser um Marktanteile. Kunden- 
dienst und Ersatzteile lassen darüber 
hinaus in zahlreichen Fällen zu wün- 
schen übrig. 

Neuheiten auf dem Computersektor 
gab es auf der C '84 nur im Software- 
bereich. Dichte Menschenmassen 
strebten durch die Hallen und umla- 
gerten die Stände der Aussteller. Aber 
wenn König Fußball kam, war auch 
der Stand vom Computerclub des 
WDR leer. Nur vor den Fernsehern 
standen noch Leute. 

Ein Computer-Adreßbuch vom ROM 
Verlag aus Ludwigshafen wurde auf 
der C '84 vorgestellt. In diesem Buch 
kann sich jeder eintragen lassen, der 
etwas über Computer sucht, tauschen 
will oder eigene Programme abzugeb- 
en hat. Das Buch soll zum erstenmal 
im IV. Quartal 84 erscheinen. 

Jetzt hören schon Computer auf die Stim- 
me ihres Herrn! 

Ob chinesisch oder im Kölschen Dia- 
lekt programmiert - 450 Begriffe ver- 
steht das Wunderding von APPLE. 
Sollte allerdings ein Fremder befehlen: 
„Brauche Umsatz von der letzten Mai- 
woche", hat er Pech: Das Elektronen- 
Gehirn reagiert nur auf die Stimme 
dessen, der es auch selbst program- 
miert hat. 



Sehen und ausprobieren konnte man 
die Neuheiten auf der Messe. Gezeigt 
wurden unter anderem Computer, die 
auf Fingerzeig auf den Bildschirm rea- 
gieren, transportable Mini-Computer 
für unterwegs, die auch an eine 12- 
Volt- Autobatterie angeschlossen wer- 
den können. 

Weg von der Gewalt, unter diesem 
Motto hat die Firma TOBY-DISK eini- 
ge Programme für Kinder herausgege- 
ben. Diese Programme befassen sich 
mit den Märchen aus Tausendundei- 
ner Nacht. (Hotel der Tiere, Fliegen- 
der Teppich usw.). Eben Programme 
wie sie keiner kennt - Technik - Spiel 
- Musik - Zeichnen - Rechnen - 
leicht gemacht. 

Als Eltern ihre Kinder bei TOBY- 
DISK wieder abholen wollten, gab es 
Geschrei und Gezeter, denn diese 
wollten einfach nicht mit nach Hause. 
Sollten Sie Probleme mit Staub haben, 
die Firma ERNO bläst alles weg. Auf 
dem Fotosektor ist diese Firma schon 
lange bekannt und nun bietet sie Dust- 
Off-Pflegemittel auch für Computer 
an. Ein Druck auf den Knopf und 
schon ist der Staub auf Disketten und 
Computer weg. 

Ein neues Diskettenlaufwerk unter der 
Bezeichnung „MICROPOWER 2000" 
ist von der Firma RMC aus Oberhau- 
sen auf der Messe vorgestellt worden. 
Die Flobby-Disk verfügt über 2 Lauf- 
werke und kann ohne Interface an alle 
COMMODORE-Rechner angeschlos- 
sen werden. Das Gerät ist schreib- und 
lesekompatibel mit dem 1541 und 
CBM 4040. Mit dem Diskettenlauf- 
werk können in 2 Minuten Disketten 
dupliziert werden. Zum Preis von ca. 
2700- DM ist die MICROPOWER 
2000 im Fachhandel erhältlich. Ein 
Test ist in Vorbereitung. 

Zusammenfassung: Alles in allem eine 
Computershow der Superklasse, die 




leider unter dem Fußball zu leiden hat- 
te. Den nächsten Termin sollten Sie 
sich schon jetzt merken und aufschrei- 
ben. Die 2. Internationale Computer- 
show Köln ist vom 13.-16. Juni 1985. - 

Rolf Freitag 



Summer Games 
Was für den Sportler die Olympischen 
Spiele in Los Angeles sind, ist für den 
Computerfan Summer Games. 
Neben der guten Grafik ist dieses Spiel 




ein Spiel der Superklasse. Nachdem 
das Programm in den Rechner geladen 
ist, kommt die Eröffnungsfeier mit dem 
Anzünden des Olympischen Feuers. 
Danach starten Friedenstauben aus 
dem Stadion. Jetzt kommt die Auffor- 
derung seinen Namen einzugeben und 
unter 18 Länder kann man seine Na- 
tion heraussuchen. Das Spiel ist für 
1-8 Personen geeignet. Nach Abspie- 
len der Hymnen kommt ein Auswahl- 
menü, in dem man sich entscheiden 
kann, alle 8 Optionen der Reihe nach 
mit Wertung oder ohne Wertung zu 
spielen. Es besteht auch die Möglich- 
keit, jede der einzelnen Sportarten an- 
zuwählen. 

Die Sportarten im einzelnen: Stab- 
hochsprung, Turmspringen, 4x400-m- 
Staf feilauf, 100-m-Lauf, Gymnastik, 
Freistilstaffel, 100-m-Freistil und Ton- 
taubenschießen. Nach Beendigung der 
Durchgänge erklingt für den Sieger die 
Nationalhymne und ein Punktestand. 
Das Spiel ist bei der Firma SOFTSELL 
in München zum Preis von ca. 117,- 
DM erhältlich. RF 

iiiPni 

Vom 8.-10. Oktober 1984 findet an 
der Freien Universität Berlin die Fach- 
tagung der Gesellschaft für Informatik 
„Informatik - Herausforderung an 
Schule und Ausbildung" statt. Ziel der 
Tagung soll sein, die Ausbildung in 
Informatik, ihre Auswirkungen und 
Realisierungen in den verschiedenen 
Bildungs- und Berufsbereichen darzu- 
stellen, und Lehrer, Wissenschaftler, 
Dozenten, Lehramtsstudenten, Behör- 
den und Verwaltungen sowie Ausbil- 
dungsleiter der Industrie zu Gesprä- 
chen zusammenzuführen. 
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Beim Auspacken des Computers wur- 
den wir von der Vielzahl der Kabel 
überrascht. Neben dem Netzteil und 
dem Antennenkabel war ein Kabel für 
den Kassettenrecorder und einem zu- 
sätzlichen Monitor vorhanden. Dem 
BIT 90 ist auch noch eine Antennen- 
weiche beigelegt. Diese ermöglicht 
eine Umschaltung zwischen Hausan- 
tenne und Computer. So fällt das Um- 
stecken der Antennenkabel flach. 

Nach dem Anschließen des BIT 90, 
das im Handbuch durch Zeichnungen 
unterstützt wurde, wußten wir nicht, 
ist der BIT 90 nun in Betrieb oder 
nicht, denn es fehlt die Kontrollampe. 
Nach Aussage des Händlers wird die- 
ses jedoch abgeändert. Mit seinem sil- 
berfarbenen Gehäuse, der grünen Ta- 
statur auf schwarzem Grund und fla- 
chen Design hat der BIT 90 ein Ausse- 
hen, das ins Auge fällt. 

Die Tastatur besteht aus 66 Gummita- 
sten, wie beim Sinclair oder Laser, wo- 
von manche Tasten bis zu viermal be- 
legt sind. Die Funktionen der Tasten- 
belegung ist über vorgegebenen Ta- 
sten einfach und für jeden erlernbar. 
Alle BASIC-Befehle, die der BIT 90 
kennt, sind über die BASIC-Taste er- 
reichbar. Die Kürzel müssen nicht be- 
nutzt werden, der BIT 90 versteht 
auch normale Eingabe. Auf der rech- 
ten Seite hat der BIT 90 die 4 Cursor- 
tasten, die ein freies Bewegen auf dem 
Bildschirm ermöglichen sollen. Aber 
weit gefehlt, eine Änderung ist nur in 
der letzten Zeile möglich, vor Drücken 
der Returntaste. Sicherlich ein Nach- 
teil, aber über >Edit< ist ein freies 
Bewegen auf dem Bildschirm möglich. 
Der Programmierer, der seine Pro- 
gramme ändern will, muß mit >Edit< 
arbeiten. Dieses wird mit zwei Tasten 
unterstützt. 

Ernsthaften Programmierern steht 
nichts im Wege - der >Made in Tai- 
wan < -Computer bringt sogar eine 
Reihe Besonderheiten mit, die dem 
Anwender das Arbeiten leichter ma- 
chen. Nicht nur die genannte Kurz- 
wahl der BASIC-Befehle per Tasten- 
druck, sondern auch der „AUTO-Mo- 
dus" und der „REMUN-Modus", die 
eine automatische Durchnumerierung 
der Programmzeilen in wählbarer 
Schrittweite übernimmt. 
Die 4 Cursortasten können einen Joy- 
sick ersetzen, so daß der Spieler eine 
einfache Handhabung hat und zudem 
auch noch Geld spart. Der BIT 90 be- 
sitzt 2 Joystickspots, wo sich jeder 
handelsübliche Joystick anschließen 
läßt. In einer Programmzeile finden 
128 Zeichen Platz und es bereitet kei- 
ne Schwierigkeiten, ein weiteres Pro- 
gramm auf ein bereits eingespeicher- 
tes Programm aufzuladen. 
Der BIT 90 besitzt Befehle, die andere 
Computer erst durch teuere Program- 
me wie Simon s Basic für den Commo- 



dore oder EX-Basic wie Trace, Else, 
Inky usw., erhalten. 
Durch einen einfachen Tastendruck 
„COPY" erhalten wir einen Hardco- 
pyausdruck auf unsern Drucker. Es 
läßt sich fast jeder Drucker ohne Pro- 
bleme aufgrund der RS 232 C Schnitt- 
stelle anschließen. 
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Mit einer 256x1 92-Grafikauflösung ist 
eine sehr gute grafische Gestaltung in 
16 Farben möglich. Die grafische Dar- 
stellung des BIT 90 liegt deutlich über 
dem Durchschnitt. 

Auf Verlangen gibt der BIT 90 auch 
Töne von sich. DreiTon- und Rausch- 
generatoren mit fünf Oktaven sorgen 
für fast jedes Geräusch. Damit bringt 
der BIT 90 die besten Voraussetzun- 
gen für Spiele mit sich. 
Über Software braucht sich der An- 
wender nicht zu beklagen. Auf dem 
Spielsektor sind schon Programme zu 
haben. Nur im Anwenderbereich ist 
noch kein großes Angebot vorhanden. 
Da der Computer jedoch auch Atari 
und Colecovision-Programme verar- 
beitet, besteht auch hier eine große 
Auswahl an Programmen zu Verfü- 
gung. 
Jeder Kassettenrecorder ist anschließ- 



bar. Leicht zu vertauschen ist der Kas- 
settenrecorderanschluß mit den Joy- 
stickbuchsen, da diese die gleiche 
Buchse haben. Der BIT 90 ist eine Mi- 
schung aus APPLE und TSR-80.. Au- 
ßer dem umfangreichen Basicinterpre- 
ter besitzt der BIT 90 noch folgende 
Hardwarespezifikationen: 

X CPU Z-80A, 3,58 MHz 

X ROM 24 K 

X RAM 34 K 

X RAM erweiterbar auf 50 K 

X 66 Standardtasten 

X Groß- und Kleinschreibung 

X Grafikmode 

X 4 Tongeneratoren 

X 16 Farben 

X 32 Sprites 

X 2 Joystickbuchsen 

X Kassetteninterface mit 2400 Baud 
Bit sx Serielle RS 232 C Schnittstel- 
le 

Fazit: 

Zum Erstellen von größeren Program- 
men ist unserer Meinung nach die 
Gummitastatur nicht geeignet. Das 
mag Gewöhnungssache sein, die mei- 
sten Benutzer ziehen eine solide 
Schreibmaschinentastatur jedoch vor. 
Die fehlende Kontrollampe wird ein- 
gebaut, auch der Kassettenanschluß 
wird überarbeitet. 

Alles in allem, der BIT 90 bietet ein 
gutes Preis-/Leistungsverhältnis im 
Computerbereich und ausreichend 
Software. 

Wenn der BIT 90 wirklich ein Voll- 
treffer werden sollte - wir wünschen 
es dem BIT 90 -, wird die Literatur 
nicht lange auf sich warten lassen. Der 
BIT 90 wäre es wert. RF 



Erfolgreiche Durch- 
führung des 
4. HESSISCHEN 
COMPUTER-TAGES 

Am 5. 12. 1982 fand zum ersten Mal 
eine Veranstaltung statt, die es in die- 
ser Form noch nicht gab. Um diese Art 
der Veranstaltung von den bekannten 
großen Messen zu unterscheiden, 
wurde vom Veranstalter ein neuer Be- 
griff geprägt: COMPUTER-TAG. Die- 
ser Begriff ist zwischenzeitlich schon 
zum Bestandteil der deutschen Spra- 
che geworden:, Fachzeitschriften be- 
nutzen ihn in Überschriften und eine 
ganze Reihe inzwischen auf dem 
Markt befindlicher Aussteller, haben 
diesen Begriff übernommen und teil- 
weise die Veranstaltung bis ins Detail 
kopiert. Dies zeigt, daß der Veranstal- 
ter mit seinen COMPUTER-TAGEN 
einen Trend stark beeinflußte, wenn 
nicht sogar begründete: die regionalen 



Computer- Verkauf sausstellungen. 
Der Erfolg dieser Veranstaltungen 
zeigt sich an den Besucher- und Aus- 
stellungszahlen des 4. HESSISCHEN 
COMPUTER-TAGES. Mehr als 5500 
Besucher und über 50 Firmen ließen 
diesen COMPUTER-TAG zu einem 
glänzenden Erfolg weden. Haben beim 
1. HESSISCHEN COMPUTER-TAG 
noch die Aussteller von Home- und 
Spielcomputern überwogen, ' zeigten 
die Aussteller auf dem 4. HESSI- 
SCHEN COMPUTER-TAG überwie- 
gend professionelle Anwendungen. 

Anzumerken ist, daß auch das Publi- 
kum diese Entwicklung befürwortet. 
Der Besucher, der Lösungen zu Bewäl- 
tigung seiner betrieblichen Probleme 
suchte, überwog. 

Eine wesentliche Veränderung wird es 
zum 5. HESSISCHEN COMPUTER- 
TAG geben. Die Veranstaltung findet 
dann zum ersten Male an zwei Tagen, 
dem 8. und 9. Dezember 1984 in Neu- 
Isenburg statt. 
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Tips & Tricks 



Listschutz 

In der Juni- Ausgabe haben wir bereits 
eine List-Schutz -Routine vorgestellt. 
Leider hat sich erst später herausge- 
stellt, daß einige Basic-Befehle nach 
dem Schutz nicht mehr ausgeführt 
werden. Dies kommt durch die Ar- 
beitsweise des Basic- Interpreters und 
kann nicht verhindert werden. 
Die nun hier vorgestellte Schutz-Rou- 
tine ist etwas arbeitsaufwendiger, da- 
für jedoch in fast allen Zeilen zu ver- 
wenden. Der Vorteil ist, daß sich auch 
einzelne Zeilen schützen lassen. Beim 
Listen von geschützten Zeilen er- 
scheint nur die Zeilen-Nummer. 
Und so wird's gemacht: 
Vor jede zu schützende Zeile wird 5 
mal die eckige Klammer gesetzt (hinter 
Zeilennummer und vor Befehl). 
Beispiel: 

30[[[[[PRINT „DIESE ZEILE IST GE- 
SCHUETZT" 

Die zu schützenden Basic-Programme 
sollten mit einer Zeilennummer >5 
beginnen, da in den ersten Zeilen die 
Schutz -Routine eingetragen wird. 
Schutzroutine: 

1 N=2049 

2 IF PEEK(N+4)=ASC("[") THEN 
POKE N+4,0 

3 N= PEEK(N)+256 • PEEK(N+1) 

4 IF N>0 THEN 2 

5 END 

Durch den Befehl „RUN" werden nun 
die gekennzeichneten Zeilen ge- 
schützt. Die Befehle GET, INPUT und 
DEFFN dürfen nicht geschützt wer- 
den. 



Ein Scroll wie beim ZX-81 kann man 
in Programmen durch >RANDOMI- 
ZE USR 3280< ersetzen. 



Die fre (0) Funktion fehlt beim ZX- 
Spectrum. Man kann die noch freien 
Bytes folgendermaßen erfahren: Print 
65536 - USR 7962 



24-Zeilen-COPY für den Sinclair 
ZX Spectrum 

Wie man die Bildschirmzeilen 22 und 
23 nutzen kann, stand bereits in ver- 
schiedenen Fachzeitschriften und soll 
daher hier nur kurz erwähnt werden: 

Zeile 22: PRINT O; AT O,... 

Zeile 23: PRINT O; AT O,... 
Schwieriger wird es dagegen, wenn 
man den Bildschirm einschließlich der 
Zeilen 22 und 23 auf dem Drucker 
ausgeben will. Die COPY-Routine des 
Spectrum-ROM verarbeitet nämlich 
nur die 22 Zeilen des oberen Bild- 
schirmteils. 
Abhilfe schafft hier ein kleines Pro- 



gramm, das die beiden Zeilen des un- 
teren Bildschirmteils nacheinander in 
den Printerbuffer kopiert und dann mit 
LPRINT auf dem Drucker ausgibt. 
Das eigentliche Programm zum Kopie- 
ren und Ausdrucken der Zeilen steht 
in den Programmzeilen 1 10 bis 140. Es 
sieht auf den ersten Blick vielleicht 
etwas kompliziert aus, aber es hat den 
Vorteil, daß es ohne Veränderung mit 
beliebigen Zeilennummern versehen 
werden kann. Außerdem spielt der un- 
terschiedliche Aufbau des Display-Fi- 
les und des Printerbuffers eine Rolle. 
Um in einem Programm die 24-COPY 
durchzuführen, setzt man einfach die 
Zeilen 110 bis .140 hinter den eigentli- 
chen COPY-Befehl. 
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1 REM ************************* 

5 REM * * 

10 REM * 24-zeilen-COPY -s 

20 REM * * 

30 REM *• * 

40 REM * ©19S4 .JOACHIM MILTZ S 

50 R.EM * £ 

60 REM 

70 REM 

80 REM 

90 REM 

95 REM 

100 CLS 

105 C-OP-y 

110 fOR Z=2067 



'*»**#***** 



: GQ TD 300 

TO 207 04 STEP -3 



115 LET Zl=Z 

120 FOR i =0 TO 7 

125 FOR J =0 TO 31 

ISO POKE 2329S+ j + s *32 .. PEEK <Zl- 
j J 

'135 HEXT j : LET z 1=2 1+256 

140 MEXT i ; LPRINT : HEXT Z 

190 PAUS E 100: STOP _ 

300 REM Mi I | I H I B EH— 

310 FOR i =0 TO 21 

330 PRINT AT i,S; "Zeile "Ji 

340 HEXT i 

350 PLOT 0,0: DRAU 255,0. DRAU 
0,175. DRAU -255,0. DRAU 0,-175 

360 PRINT W0; AT 0,0; "Das ist d: 



'und das äs 



le 22" 
355 PRINT ll(3;RT 1,6; 

die Zei l e 23" 
370 GO TO 105 

900 S.AVE "COPY 24" LINE 100 
910 UERIFY "CDPY 24" 



TI-99 

mhbmmb 

Richtigstellung der in Computro- 

nic Heft 6 auf Seite 5 abgedruckten 

>Tips & Tricks < für den TI-99/ 

4A. 

Call Files 

Beschreibung: 

Das FILES-Unterprogramm verwen- 
det man zur Änderung der Anzahl der 
externen Dateien, die gleichzeitig ge- 



öffnet sein können. Die Anzahl muß 
eine einstellige ganze Zahl (von 1 bis 
9) sein. Der Befehl NEW muß im Di- 
rektbetrieb unmittelbar dem CALL FI- 
LES-Befehl folgen. Wird der CALL FI- 
LES-Befehl nicht eingegeben, so ist der 
Standardwert der Anzahl der mögli- 
chen offenen Dateien 3, sofern ein Pe- 
ripheriegerät angeschlossen ist. 
Das FILES-Unterprogramm ist vor al- 
lem im Zusammenhang mit dem Dis- 
kettenbetrieb interessant. Pro geöffne- 
ter Datei wird der für Programme ver- 
fügbare Speicherplatz im RAM-Be- 
reich des Computers um 518 Bytes 
reduziert. (Bei zugeschaltetem Disk- 
Controller kann also der verfügbare 
Speicherplatz mit CALL FILES( 1 ) oder 
CALL FILES (2) erhöht werden!) 



Achtung! 

Im TI-BASIC ist der CALL FILES-Be- 
fehl nur im Direktbetrieb (zusammen 
mit NEW) möglich. Die Anwendung 
des FILES-Unterprogramms in einem 
Programm kann unvorhersehbare Fol- 
gen haben - einschließlich Verlust ei- 
nes Programmes und/oder Verlust von 
Daten auf der Diskette! CALL FILES 
(Anzahl) ist in den Peripheriegeräten 
implementiert. Es existiert nicht bei 
bloßem Anschluß »eines Kassettenre- 
corders. 



CALL FILES - Das FILES-Unterpro- 
gramm verwendet man zur Änderung 
der Anzahl der Dateien (max. 9), die 
gleichzeitig offen sein können. Der 
Standardwert der zulässigen offenen 
Dateien in TI BASIC liegt bei drei. Der 
für Programme verfügbare Speicher- 
platz im RAM wird um 534 Byte redu- 
ziert, plus 518 weitere Bytes für jede 
zulässige offene Datei. 
Der CALL FILES Befehl hat folgende 
allgemeine Form: 

CALL FILES (Anzahl) 

NEW 
Die Anzahl muß eine einstellige Zahl 
von 1 bis 9 sein. Sie gibt die Menge der 
Dateien an, die gleichzeitig offen sein 
können. Der Befehl NEW muß unmit- 
telbar nach dem CALL FILES Befehl 
folgen. Wird CALL FILES nicht 
durchgeführt, liegt der Standardwert 
der möglichen offenen Dateien bei 
drei. 



Vorsicht 

CALL FILES kann nur als Befehl in TI 
BAS-IC verwendet werden. Es ist nicht 
zulässig, CALL FILES als Statement 
(Anweisung) in einem TI BASIC Pro- 
gramm einzugeben. Die Anwendung 
von CALL FILES in einem Programm 
ohne das unmittelbar folgende NEW 
kann unvorhergesehene Folgen ha- 
ben, einschließlich Verlust eines Pro- 
gramms und/oder Verlust von Dater. 
auf einer Diskette. 
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FORTH Kur 



Bedingte Verzweigungen 
Das Forth-Befehlswort „IF" eröff- 
net alle bedingten Verzweigungen 
in FORTH-Programmen. Dieses Be- 
fehlswort erwartet eine 1 6 -Bit Zahl auf 
dem Stack und behandelt dieses als 
Flag. Der „IF" -Befehl arbeitet nur zu- 
sammen mit dem Befehlswort 
„ENDIF". „ELSE" ist ebenfalls mög- 
lich, jedoch nicht unbedingt nötig. Fol- 
gendes Beispiel zeigt den Zusam- 
menhnag der einzelnen Befehle: 

IF (IF testet das Flag; falles es 

wahr (= 1) ist ...) 

(werden die nebenstehenden 
Anweisungen ausgeführt 

(ansonsten) 

ENDIF(fortgefahren) 

IF 

(falls Flag = 1, werden neben- 
stehende Worte) 



(bis ELSE ausgeführt) 



ELSE 



(andernfalls erfolgt die Ausfüh- 
rung der Worte) 
(zwischen ELSE und ENDIF) 

ENDIF 

Bei der Verwendung von Verzweigun- 
gen sollte man immer bedenken, daß 
diese nicht interprevativ verwendet 
werden dürfen, also nur innerhalb ei- 
ner Definition. Probieren wir doch ein- 
mal die folgende, einfache Definition: 

: DIVISION(Division mit Kommentar, 
falls Rest nicht Null) (Para- 
meter wie bei / - Befehl) 

/MOD (Division mit Rest) 

SWAP (Bringe Rest zum TOS und 
teste ihn als Flag) 



IHWISION 
auf" 



geht 



nicht 



ENDIF 



(falls Rest = „wahr", wird 
der Text gedruckt) 



Das nun definierte Wort „DIVISION" 
erwartet also zwei Zahlen auf dem 
Stack, dividiert diese und beläßt den 
Quotienten auf dem TOS. Die Syntax 
des neuen Befehls entspricht genau 
dem Original "/" Befehl. Im Gegensatz 
zu diesem, wird jedoch bei Entstehung 
eines Restes die Meldung „DIVISION 
GEHT NICHT AUF", ausgegeben. 
Wir wollen nun ein Beispiel zeigen, 
welches den „ELSE"-Befehl vorführt. 
Es handelt sich hier um einen Ver- 
gleichs-Befehl, welcher angibt, ob die 
erste Zahl kleiner oder größer als die 
zweite Zahl ist. 




VERGLEICHE (Vergleich zweier 
Zahlen) 

< ."(FLAG ermitteln) 

IF ."KLEINER" 

ELSE ."GROESSER" 

ENDIF 

Beispiel: 

33 100 VERGLEICHE (RETURN) 

KLEINER OK 

100 33 VERGLEICHE (RETURN) 

GROESSER OK 

Zum Vergleich dasselbe noch einmal 
in der Programmiersprache Basic: 

10 INPUT „ZAHL1";Z1 

20 INPUT „ZAHL2";Z2 

30 IF ZKZ2 THEN PRINT „KLEI- 
NER" 

40 IF Z1>Z2 THEN PRINT „GROES- 
SER" 

50END 

Da im Standard-Basic keine „ELSE"- 
Befehl zugelassen ist, muß man sich 
mit zwei „IF" Anweisungen behelfen, 
wenn man nicht zu dem UNSAUBE- 
REN „GOTO"-Befehl greifen will. Dies 
geht selbstverständlich auf Kosten der 
Zeit. ' 

Im übrigen sei an dieser Stelle darauf 
hingewiesen, daß einige FORTH-Ver- 
sionen statt des Befehles „ENDIF" den 
Befehl „THEN" verwenden. Dies muß 
in dem entsprechenden Manual nach- 
gelesen werden. 

Wir haben nun einiges über die „IF"- 
Anweisung gelernt und wollen uns 
nun die eigentlichen Vergleichsbefeh- 
le näher ansehen: 

< (nl n2 n3 — > nl f) 

Flag wird 1 wenn die Zahl n2 kleiner 
als n3 ist. 

> (nl n2 n3 — > nl f) 

Flag wird 1 wenn die Zahl n2 größer 

als n3 ist. 

= (nl n2 n3 — > nl f) 

Flag wird 1 wenn beide Zahlen gleich 

sind 

0< (nl n2 n3 — > nl n2 f) 

Flag wird 1 wenn n3 eine negative 
Zahl ist 

0= (nl n2 n3 — > nl n2 n3) 

Flag wird 1 wenn die Zahl n3 gleich 

null ist. 

Als Ergebnis des Vergleiches wird im- 
mer eine Boolsche Zahl abgelegt. Die- 
se wird auch als Flag bezeichnet und 
gibt an, ob die Aussage richtig oder 
falsch ist. Ist diese richtig, so wird eine 



1, ansonsten eine auf den Stack ge- 
legt. 



Beispiele: 

23 30 < . 
30 23 < . 
30 44 = 
-2 < 



<RETURN> 1 OK 
<RETURN> OK 
<RETURN> OK 
<RETURN> 1 OK 



Bei dem Vergleich zweier Zahlen soll- 
te man bedenken, daß diese vom Ver- 
gleichsbefehl überschrieben werden. 
Will man diese jedoch für weitere Be- 
rechnungen erhalten, so kann man 
dies mit dem Befehl OVER erreichen: 
23 30 OVER OVER < . . . <RE- 
TURN> 1 30 23 

Programmschleife DO...LOOP 

Ein wuchtiger Bestandteil aller Pro- 
grammiersprachen sind Schleifen. Un- 
ter Schleife versteht man einen oder 
mehrere Befehle, die durch zwei 
Kennzeichnungen eingeklammert 

sind. Diese eingeklammerten Befehle 
werden beliebig oft durchlaufen. Ist 
eine bestimmte Anzahl durchlaufen, 
wird das Programm fortgesetzt. In 
FORTH gibt es genau wie in Pascal 
keinen „GOTO" Befehl, deshalb ist der 
Programmierer auf die Schleife ange- 
wiesen. 

Der Schleifenbefehl hat in FORTH fol- 
gende Syntax: 

DO ... LOOP (nl n2 n3 — > nl) 
Die Schleife wird von n3 bis n2 in 
Einerschritten durchlaufen. Die Zahl 
n3 muß in diesem Fall kleiner als n2 
sein. 

Die oberste Zahl auf dem Stack wird 
immer als Anfangswert und die darun- 
terliegende Zahl als Endwert verwen- 
det. Während der Schleife wird der 
Zahlenparameter immer um eins er- 
höht, deshalb muß der Endwert immer 
größer als der Anfangswert sein. Ist 
der Zahlenparameter größer oder 
gleich dem Endwert, so wird die 
Schleife verlassen. Da diese Kontrolle 
jedoch immer erst am Ende einer 
Schleife durchgeführt wird, ist die 
Schleife bereits einmal durchlaufen. 
Will man während eines Schleifen- 
durchlaufs den Zahlenparameter aus- 
lesen, kann man dies mit Hilfe des 
Wortes „I". Dieses Wort legt den Zah- 
lenparameter auf den Stack. 

Wie der „IF" Befehl kann auch die DO- 
LOOP-Schleife nicht interpretativ 
ausgeführt werden und muß deshalb 
innerhalb einer Definition stehen. 
Das folgende Beispiel gibt die Zahlen 
0-12 auf dem Schirm aus: 

: ZAHLEN 12 DO I . LOOP ; <RE- 
TURN> OK 

ZAHLEN <RETURN> 12 3 4 5 6 7 
8 9 10 11 12 OK 
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Das gleiche in BASIC: 

FOR I = TO 12 : PRINT I, :NEXT 1 

Ist der Endwert kleiner als der An- 
fangswert, so wird die Schleife nur 
einmal durchlaufen: 

: ZAHLEN 12 DO I . LOOP ; <RE- 

TURN> OK 

ZAHLEN <RETURN> 12 OK 

Das nächste Beispiel zeigt zwei DO- 
LOOP-Schleifen die ineinander ver- 
schachtelt sind. Der Aufruf der neuen 
Definition gibt die Zahlen bis 9 in 
einer Dreieckmatrix aus. 

: SCHLEIFEI DO I . LOOP ; <RE- 
TURN> OK 

: SCHLEIFE2 DO CR 1 - DUP 
SCHLEIFEI LOOP ; <RETURN> OK 
11 10 SCHLEIFE2 <RETURN> OK 

123456789 

012345678 

1234567 

123456 

12345 

1234 

12 3 

1 2 

1 

0OK 

In vielen Programmen werden DO- 
LOOP-Schleifen zur Verzögerung von 
Programmabschnitten verwendet. 
Durch den folgenden Vergleich wird 
ersichtlich, wie schnell die Program- 
miersprache FORTH arbeitet: 

Eine Leerschleife in FORTH: 
: PAUSE 10000 DO LOOP ; 

Die Ausführungszeit dieser Schleife 
beträgt im Durchschnitt 4 Sekunden. 
Je nach FORTH Version und Micro- 
prozessor kann diese Zeit etwas länger 
oder auch kürzer werden. 

Die gleiche Schleife in BASIC: 
10 FOR I = TO 10000 : NEXT 1 

In Basic ist die durchschnittliche Aus- 
führungszeit etwa 4 bis 5 mal so lang 
wie in FORTH. Wie zu erkennen ist, 
eignet sich somit FORTH auch für Pro- 
gramme, in denen es auf genaue „Pau- 
se-Zeiten" ankommt, (Z. B. Eprom- 
Programmierung oder sonstige Ein- 
bzw. Ausgaben). 

So mancher wird sich inzwischen fra- 
gen, ob man das Zahlenparameter 
nicht auch um 2, oder einer anderen 
Zahl erhöhen kann. Dies geschieht in 
Basic durch den Befehl „STEP". 
Dies ist auch in FORTH möglich, in- 
dem man statt des „LOOP"-Befehls ein 
„+LOOP" einsetzt. In diesem Fall wird 
die Zahl, welche vor dem „+LOOP" 



auf dem Stack liegt, als Increment be- 
nutzt. Ist diese Zahl im negativen Be- 
reich, so wird die Schleife bei jedem 
Durchlauf erniedrigt. In diesem Fall 
muß der Endwert kleiner als der An- 
fangswert sein, da sonst nur ein 
Durchlauf erfolgt. 




Die Syntax: +LOOP (nl n2 n3 — > nl 
n2) 

Einige Beispiele: 

: ZAHLEN 10 DO I . 2 +LOOP ; 
<RETURN> OK 

ZAHLEN <RETURN> 2 4 6 8 OK 
In BASIC: 

10 FORI = TO 1 STEP 2 : PRINT I, : 

NEXTI 

Umgekehrte Schleife: 

: ZAHLEN 10 DO I . -2 +LOOP ; 
<RETURN> OK 

ZAHLEN <RETURN> 10 8 6 4 2 OK 

In Basic: 

10 FORI = 10 TO 2 STEP -2 : PRINT I, 
: NEXT I 

Bei Verwendung des „+LOOP" sollte 
man daran denken, daß vor dessen 
Ausführung eine zur Endlosschleife 
führt. 

BEGIN... UNTIL-Schleife 

Da in FORTH kein Sprungbefehl vor- 
handen ist, müssen einige spezielle 
Schleifen diese ersetzen. Eine davon 
ist die BEGIN-UNTIL-Schleife. 
Diese Schleife wird so lange durchlau- 
fen, bis vor dem Befehl „UNTIL" ein 
„WAHR-Flag" gesetzt wird. Eine 
führt zu einem neuen Durchlauf. Diese 
BEGIN-UNTIL-Struktur kann also 
sehr leicht den „GOTO"-Befehl erset- 
zen und führt somit zu einem über- 
sichtlicheren Programm. 
Die Struktur der Schleife sieht wie 
folgt aus: 



BEGIN 



(Befehle innerhalb der 
Schleife) 



(Testteil der Schleife z. B. 
Vergleich) 

(Flag wird auf Stack gelegt) 
UNTIL (Ist Flag=0 erfolgt Sprung 
nach Begin) 

(Flag ist ungleich 0; Pro- 
gramm wird fortgesetzt) 

Das Beispiel mit den Zahlen: 

: ZAHLEN 

BEGIN 

1+ (Zahl um 1 erhöhen) 

DUP . (Zahl ausgeben) 

DUP 10 = (Ist 10 erreicht?) 

UNTIL 



ZAHLEN <RETURN> 12 3 4 5 6 7 8 

9 10 OK 

In dem obigen Beispiel wird die Schlei- 
fe so lange wiederholt, bis die auf dem 
Stack liegende Zahl den Wert 10 er- 
reicht hat. 

Eine weitere Anwendung wäre bei- 
spielsweise das Abfragen der Tasta- 
tur: 

: INKEY (Auf <RETURN> wird ge- 
wartet) 

BEGIN 

KEY 

13 = (Ist <RETURN> ge- 
drückt) 

UNTIL 

"RETURN WURDE GE- 
DRUECKT" 

INKEY <RETURN> 

<RETURN> RETURN WURDE GE- 
DRUECKT OK 

Zum Schluß das Beispiel noch einmal 
in Basic: 

10 GET E$: IF E$="" THEN 10 

20 IF ASC(E$(<> 13 THEN 10 

30 PRINT „RETURN WURDE GE- 
DRUECKT" 
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Erfreulich 

Hiermit möchte ich Ihnen mitteilen, 
daß ich die Nachlieferung der Apple 
Disketten # 4 und # 5 erhalten habe. 
Weiterhin möchte ich mich bei Ihnen 
für den schnellen Service vielmals be- 
danken! Es ist heutzutage leider nicht 
mehr üblich auf Reklamationen so 
schnell zu reagieren und Abhilfe zu 
leisten. Deshalb VIELEN DANK!!! 
Holger Zeißler, Aisbach 

Argerlich 

Zu den Programmen „ Schnee vo- 
gel" Heft 6 und „Chopper-Flight" 
Heft 7, für Atari 

Zu meinem großen Erstaunen habe ich 
festgestellt, daß in dem Listing 
„ Schnee vogel" für Atari- Computer in 
„Computronic" Nr. 6, ein Richard Kä- 
fer als Copyright-Inhaber angegeben 
ist. Dies entspricht jedoch nicht der 
Wahrheit! 

Dieses Spiel ist schon im Januar '84 in 
einem amerikanischen Magazin er- 
schienen. Denzufolge liegen die Urhe- 
berrechte bei dem dortigen Autor. Ich 
bitte Sie um Überprüfung dieser Tatsa- 
che! Jörg Detlefs, Hamburg 

Ich möchte Sie hiermit darauf auf- 
merksam machen, daß das Listing 
„Schneevogel" nicht von Richard Kä- 
fer, sondern von John Weber, stammt. 
Das Listing ist vor längerer Zeit in 
einer amerikanischen Zeitschrift unter 
dem Namen „Snowbird" erschienen. 
Lars Kubitz, Berlin 

Als Anlage eine Kopie des Originai- 
programmes „Chopper-Flight" aus 
Amerika („Centurion"). Das Pro- 
gramm soll nämlich in Rot auf dem 
Bildschirm erscheinen. Das Bild ist 
aber nur schwarz/weiß. Poke 755, 224 
ist falsch. Joachim Maiter 

Redaktion: 

Zunächst bedanken wir uns für die 
freundlichen Hinweise, wonach die 
Listings „Schneevogel" und „Chopper- 
Flight" für Atari, Heft 6+7, offensicht- 
lich einen anderen Copyright-Inhaber 
haben als der von uns angegebene. 
Unsere Vertragsbedingungen sehen 
vor, daß der Autor uns die Zusiche- 
rung gibt, daß er der alleinige Verfas- 
ser ist und dementsprechend über die 
weitere Verwendung eigenständig be- 
stimmen kann. 

Diese Zustimmung wurde uns erteilt. 
Wir können natürlich nicht jede auf 
dem Markt erscheinende Computer- 
Zeitschrift auf den Inhalt überprüfen. 
Insofern dürfen wir uns auf die zu- 
nächst gemachten Angaben verlassen. 
Allerdings wird unser Haus es nicht 
erlauben, daß mit solchen Praktiken 
wir und Sie, lieber Leser, getäuscht 
werden. Wir werden daher eine Prü- 
fung durchführen, die unter Umstän- 
den zu einem Schadenersatz führen 
wird. 



Ergänzung 

Für die Veröffentlichung meines Ma- 
thematik-Programms möchte ich mich 
ganz herzlich bei Ihnen bedanken. 
Gleichzeitig bitte ich aber, den folgen- 
den Nachtrag noch in einer Ihrer 
nächsten Ausgaben zu bringen! Grund 
dafür sind Bedienungsfehler Ihrerseits 
bei den Beispielen, die die Leistungsfä- 
higkeit des Programms bei weitem 
nicht ausschöpfen. Vielleicht liegt es 
auch an der Knappheit der Dokumen- 
tation, die für „ Hobbymathematiker " 
etwas unzureichend ist. 

Nachtrag zum Mathematik-Programm - 
für ZX -Spektrum 

1 . Bei der Funktion y = x 3 - 8x + x 2 
(S. 36) fällt auf, daß diese sich nur auf 
einen kleinen Teil der X-Achse ver- 
teilt. Grund dafür ist eine viel zu hohe 
Vergrößerung, so daß nur ein Teil der 
X - Y Paare abgebildet wird, und der 
letzte Pixel bei x = 2.5 gedruckt wird, 
obwohl der Definitionsbereich bis 15 
gehen sollte. Hier fehlt also ein Teil 
der Funktion. Wird eine zu kleine 
Vertikaldehnung gewählt, so wird der 
GaPh nur etwas kleiner abgebildet, 
wie zum Beispiel die Sinusfunktion auf 
Seite 36. In allen Fällen stimmen aber 
die Koordination, angegeben mit A, B, 
P und Qu 

Das Problem der optimalen Vergröße- 
rung könnte zwar softwaremäßig 
leicht gelöst werden, jedoch sehr auf 
Kosten der Geschwindigkeit. Außer- 
dem ergäben sich große Probleme mit 
Unstetigkeitsstellen. Auf jeden Fall 
liegt hier kein Programmierfehler vor, 
was man bei einer neunten Version 
auch ausschließen sollte. 

2. Auch wenn -das Programm weitge- 
hend immun gegen Unstetigkeitsstel- 
len ist, so kann ein Auftauchen der 
Fehlermeldung „Number too big", 
oder ein Hinweis auf eine mögliche 
Definitionslücke nicht ausgeschlossen 
werden, denn manch eine unstetige 
Funktion kann selbst mit den raffinier- 
testen Mitteln der höheren Mathema- 
tik nicht gelöst werden! Und mein Pro- 
gramm kann nun einmal gewisse Ge- 
setzmäßigkeiten der Mathematik nicht 
sprengen! 

Abschließend möchte ich auf einen 
Fehler im Inhaltsverzeichnis hinwei- 
sen, wo die Lösbarkeit von Differen- 
tialgleichungen angepriesen wird. 
Richtig müßte es an dieser Stelle Diffe- 
rentialrechnung heißen im Sinne der 
ersten Ableitung. 
Soweit die wichtige Ergänzung. 
Uwe Haferland 

Ein Tip: 

Läßt sich mal eine Kassette nicht laden 
(Meldung: ERROR in DATA oder 
DATA NOT FOUND, beim TI-99/4A), 
dann sollte man versuchen die Kasset- 
te mit einem Stereogerät und zwar ab- 
wechselnd mit dem rechten oder lin- 
ken Kanal zu laden - dies geht mit 



Hilfe des „Balance -Reglers" und eines 
entsprechenden Stereo-Kabels. Franz 
Sehi, Fürstenfeldbruck 

Begeistert 

Mit wachsender Begeisterung lese ich 
Ihr Computronic-Magazin und ich 
muß sagen „Sie haben eine Menge 
drauf" mit den abgedruckten Program- 
men. 

Besonders gut fand ich das Programm 
für den Spectrum. Ich habe nun einige 
Änderungen am Listing durchgeführt; 
sodaß es mit dem Kempston-Joystick 
spielbar ist. 

Meine Frage ist jetzt: Gibt es auch für 
solche Programmiertricks ein Honorar 
oder nur für ganze Programme? 
Ich frage deshalb, weil ich selbst noch 
nicht in der Lage bin, Programme zu 
schreiben, sondern nur einige Ände- 
rungen oder Verbesserungen machen 
kann, die der besseren Spielbarkeit 
dienen. Harald Schüler, 6900 Heidel- 
berg 1 

Redaktion: 

Diese Frage wird uns häufig gestellt. 
Natürlich bezahlen wir unseren Le- 
sern auch gute Programmiertricks. 
Das Honorar dafür richtet sich nach 
Länge und Qualität des eingesandten 
Pro gr ammierti ps . 

Service 

Meine TI-99 -Kassetten habe ich 
prompt erhalten. Leider kann ich sie 
nicht lesen. Nach ca. 10 Std. Versu- 
chen mit unterschiedlichen Recordern 
habe ich aufgegeben. In Abhängigkeit 
von der eingestellten Lautstärke er- 
halte ich entweder „NO DATA 
FOUND" oder „ERROR IN DATA DE- 
TECTED". Diese zweite Fehlermel- 
dung kommt entweder gleich am An- 
fang bei dem etwas längeren Piepser 
oder erst nach einiger Zeit während 
des Einlesens. Vielleicht sollte ich 
noch darauf hinweisen, daß die einge- 
lesenen Daten über den Monitorlaut- 
sprecher zu hören waren. Ich hoffe 
sehr, daß Sie mir helfen können. Dr. A, 
Ruff, 7400 Tübingen 

Redaktion 

Zwar sind wir weitgehendst bemüht, 
bespielte Cassetten bzw. Disketten im 
einwandfreien Zustand an unsere 
Kunden weiterzugeben, jedoch kann 
es auch bei uns vorkommen, daß ein 
Datenträger nicht einwandfrei versen- 
det wird. Tatsache ist jedoch, daß. je- 
der Datenträger auf seine Funktion 
überprüft wird.. Durch eine Reihe an- 
derer Umstände wie Tonkopfver- 
schmutzung, unterschiedliche Ton- 
kopfeinstellung, magn. Einflüsse etc. 
kann dieser Ladefehler Ihrer Kasset- 
ten jedoch zustande gekommen sein. 
Unser Angebot: Senden Sie die defek- 
ten Kassetten zurück, Sie erhalten 
umgehend kostenlos neue Exemplare 
zurück. 
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Ein Spiel in 378 Bildern 

Vor langer Zeit lebte ein Volk, wel- 
ches MAYA genannt wurde. Dieses 
Volk soll unermeßliche Schätze beses- 
sen haben. 

Jetzt endlich hat sich jemand bereiter- 
klärt, nach diesen sagenumwobenen 
Schätzen zu suchen. Dieser Jemand ist 
Coconut Joe. Für die abenteuerliche 
Expedition braucht er jedoch noch ei- 
nen Partner. Wie wäre es zum Beispiel 
mit Ihnen? Begleiten Sie Coconut Joe 
bei seiner Schatzsuche durch den Ur- 
wald, und vielleicht haben Sie Glück 
und kommen in die Wüste zu den Py- 
ramiden der MAYA, wo Sie weitere 
Schätze finden können. 

Das Spiel läuft auf dem TI 99/4 A mit 
dem Extended BASIC Modul und wird 
mittels Joystick 1 gesteuert. 

Was Sie jetzt lesen, werden Sie wohl 
kaum glauben wollen, es ist jedoch 
wahr: 

Der Rechner kann in diesem Spiel bis 
zu 3781! verschiedene Bildschirmsze- 
nen, darstellen. Ferner verfügt das 
Spiel über eine hervorragende grafi- 
sche Darstellung, 

Aus Speicherplatzgründen mußte je- 
doch auf eine Spielanleitung im Pro- 
gramm verzichtet werden, da das Pro- 
gramm den Speicher bis auf 654 Bytes 
ausnutzt. 

Doch nun zum eigentlichen Spiel: 
Tippen Sie das Listing ein oder laden 
Sie das Programm von Cassette. Da- 
nach starten Sie mit „RUN". Es dauert 
jetzt einige Sekunden, bis der Rechner 
die internen Vorbereitungen zum 
Spiel getroffen hat. Jetzt erscheint das 
Titelbild und El- Condor Pasa wird ge- 
spielt. Um das Spiel zu beginnen, neh- 
men Sie Joystick 1 in die Hand und 
drücken den roten Aktionsknopf. Die 
Musik verstummt und nach wenigen 
Sekunden erscheint Coconut Joe am 
rechten Bildschirmrand. Nachfolgend 
werden nun die einzelnen Spielele- 
mente beschrieben. Das ist die ein- 
fachste Art, das Spiel zu erklären. 

Coconut Joe 

Coconut Joe wird vom Spieler mittels 
des Joysticks gesteuert: Nach rechts 
und links. Wenn Sie im Bereich einer 
Leiter stehen, so bewegen Sie Joe mit 
dem Joystick nach oben oder unten, 
die Leiter hinauf oder hinunter. 
Wenn Sie den Aktionsknopf drücken, 
so springt Joe in die Höhe. Gleichzeiti- 
ges Bewegen des Joysticks nach 
rechts oder links läßt Joe in die ge- 
wünschte Richtung springen. 

Beachten Sie jedoch, daß Coconut Joe 
nur auf der Urwald- bzw. Wüsten- 
oberfläche springen kann. In den un- 
terirdischen Katakomben kann Joe 
nicht springen. 



Schlange 

Die Schlange kommt sowolil im Ur- 
wald als auch in der Wüste vor. Wenn 
Joe diese Schlange überspringt, so be- 
kommen Sie 100 Punkte auf Ihrem 
Punktekonto gutgeschrieben. Ferner 
erhöht sich Ihr Überlebensbonus um 
300 Punkte. 

Berühren Sie jedoch die Schlange, 
ohne zu springen, so verliert Coconut 
Joe sein Leben und das Spiel ist zu 
Ende. 

Rollender Baumstamm 
Der rollende Baumstamm kommt nur 
im Urwald vor. Er rollt immer von 
links nach rechts. Wenn Joe den 
Baumstamm überspringt, so bekommt 
er 50 Punkte auf dem Punktekonto 
gutgeschrieben und 200 Überlebens- 
bonuspunkte. 

Wird Joe jedoch vom Baumstamm 
überrollt, so verliert er sein Leben und 
das Spiel ist zu Ende. 

Urwaldfeuer 

Das Urwaldfeuer kommt, wie der 
Name schon sagt, nur im Urwald vor. 
Wird es übersprungen, so werden 30 
Punkte auf dem Punktekonto gutge- 
schrieben und der Überlebensbonus 
erhöht sich um 100 Punkte. 
Wird das Feuer jedoch berührt, ohne 
daß Joe springt, so verliert er sein 
Leben und das Spiel ist zu Ende. 

Kokosnuß 

Die Kokosnuß kann unser Coconut 
Joe nur im Urwald finden. Diese Ko- 
kosnuß muß Joe aufnehmen, um die 
Chance zu bekommen, einen Schatz 
bergen zu können. Nimmt Joe die Ko- 
kosnuß auf, so erhält er 10 Punkte auf 
dem Punktekonto gutgeschrieben. 
Ferner erhöht sich die Chance, einen 
Schatz bergen zu können, um 1 Punkt. 
Der Überlebensbonus wird hierdurch 
nicht erhöht. Die Kokosnuß wird auf- 
genommen, indem sie berührt wird. 
Wenn Coconut Joe die Kokosnuß je- 
doch überspringt, so werden vom 
Überlebensbonus 500 Punkte abgezo- 
gen, was beim nächsten Szenenwech- 
sel zum Tode führen kann, falls der 
Lebensbonus auf gefallen ist. 

Kaktus 

Der Kaktus kommt nur in der Wüste 
vor. Wenn er außer bei einem Sprung 
berührt wird, so stirbt unser Joe den 
Heldentod. 

Wird der Kaktus jedoch übersprun- 
gen, so werden dem Punktekonto 40 
Punkte gutgeschrieben und der Über- 
lebensbonus erhöht sich um 100 
Punkte. 

Wasserstelle 

Die Wasserstelle findet unser Joe 
ebenfalls nur in der Wüste. Hierfür 
gelten die gleichen Bedingungen wie 
für die Kokosnuß, nur daß beim Über- 
springen 1000 Punkte vom Überle- 
bensbonus abgezogen werden. 




Goldbarren 

Den Goldbarren findet unser Joe nur 
in den unterirdischen Katakomben. 
Wird der Goldbarren berührt, und die 
Chance einen Schatz bergen zu kön- 
nen ist größer 0, so verschwindet der 
Goldbarren und dem Punktekonto 
werden 5000 Punkte gutgeschrieben. 
Wenn der Goldbarren jedoch berührt 
wird wenn die Chance ist (d. h. wenn 
keine Kokosnuß oder Wasserstelle 
mehr zur Verfügung steht), stirbt Joe 
und das Spiel ist zu Ende. Wenn ein 
Goldbarren aufgenommen wird, so 
verringert sich die Chance um 1. Es 
kann also für jede angesammelte Ko- 
kosnuß oder Wasserstelle ein Schatz 
geborgen werden. 

Silberbarren 

Für den Silberbarren gelten die glei- 
chen Bedingungen wie für den Gold- 
barren, nur gibt es beim Einsammeln 
3000 Punkte auf dem Punktekonto. 
Weiter gibt es im Spielgeschehen noch 
andere Hindernisse, so zum Beispiel 
die Fallgruben. Wenn Joe über eine 
Fallgrube läuft, ohne zu springen, so 
fällt er hinein und das Spiel ist zu 
Ende. 

Wenn in einer Fallgrube eine Leiter 
steht, so kann Joe in die Katakomben 
gehen. Dazu muß der Joystick jedoch 
beim normalen Lauf schräg nach unten 
gezogen werden, da wenn Joe gerade 
über eine Fallgrube mit Leiter geht, er 
abstürzt und das Spiel zu Ende ist. In 
den unterirdischen Katakomben ste- 
hen auch Mauern, welche den Durch- 
gang versperren. Wenn Joe eine 
Mauer berührt, so stirbt er, und das 
Spiel ist zu Ende. Coconut Joe hat 
schließlich nur ein einziges Leben. 
Bei jedem Szenenwechsel wird der 
Überlebensbonus um 100 Punkte ver- 
ringert. Wenn in diesem Moment der 
Bonus auf steht, so ist das Spiel zu 
Ende." Ein Szenenwechsel verläuft im- 
mer dann, wenn Joe den rechten oder 
linken Bildschirmrand erreicht. Ver- 
läßt Joe den Bildschirm rechts, so er- 
scheint er in der nächsten Szene links. 
Verläßt er den Bildschirm links, so er- 
scheint er in der nächsten Szene 
rechts. Die Szenen werden durch der. 
Zufall ausgewählt. 
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Die Anzeige 

Die Anzeige ist am oberen Bildschirm- 
rand eingeblendet. Links wird die 
Punktzahl angezeigt, in der Mitte ist 
die Chance zu sehen, welche anzeigt, 
ob und wieviele Schätze geborgen 
werden können. 

Rechts ist der Überlebensbonus zu se- 
hen. Bei Spielbeginn hat dieser Bonus 
den Wert von 2000 Punkten. Bei je- 
dem Szenenwechsel verringert sich 
dieser Wert um 1 00 Punkte. 
Die Punktzahl des Überlebensbonus 
kann nur in der oberen Ebene aufge- 
frischt werden. Seien Sie deshalb mit 
einem Szenenwechsel in den Kata- 
komben vorsichtig, da man nie weiß, 
wann man wieder über eine Leiter ans 
Tageslicht gelangen kann. Man kann 
durch den Überlebensbonus in den 
Katakomben viel schneller das Leben 
verlieren als an der Oberfläche. 
Das Spiel läuft zu"3egtnn~ nur" im "Ur- 
wald ab. Erst wenn Sie mindestens 
50 000 Punkte erreicht haben, kom- 
men Sie in die Wüste. Das ist kein 
einfaches Unterfangen. Das Spiel geht 
dann freilich nur noch in der Wüste 
weiter. 

Doch jetzt genug der Erklärungen. Ich 
wünsche ein ERRORfreies Eintippen 
und viel Spaß beim Spiel. Nachfolgend 
noch einige Tips zum Eintippen: 

1. Einige Zeilen sind länger als es der 
TI zuläßt. Tippen Sie die Zeile ein 
und schicken Sie diese mit <EN- 
TER> ab. Danach holen Sie die 
Zeile mit <FCTN> <REDO> wie- 
der zurück und können den Rest 

, eingeben. 

2. Benutzer eines Diskettenlaufwer- 
kes ohne Speicher erweiterung soll- 
ten das Spiel bei abgeschalteter Pe- 
ripheriebox eintippen und über ei- 
nen Cassettenre corder abspei- 
chern, da durch den Dateibuffer des 
Laufwerkes der Speicher beim Pro- 
grammlauf zu klein ist. 



3. Wenn Sie ein Laufwerk mit Erwei- 
terung besitzen, so ist vor dem Ein- 
lesen des Programmes von Cassette 
die .Befehlsfolge: CALL FILES(l) 
<ENTER> NEW <ENTER> ein- 
zugeben, damit das Programm von 
Cassette eingelesen werden kann. 

4. Während des Spielablaufes darf die 
<ALPHA LOCK> Taste nicht ein- 
gerastet sein, da sonst der Joystick 
nicht richtig abgefragt wird. 

5. Tippen Sie vor allem die DATA 
Zeilen sehr genau ab, da ein hieraus 
resultierender Fehler sehr schwer 
zu finden ist. 

Die genaue Programmstruktur ist der 
beigelegten Zuordnungstafel zu ent- 
nehmen. Nachfolgend wird aber zu- 
sätzlich noch eine Kurzbeschreibung 

des Programmes gegeben: 

Programmeinheit 

Copyright Zeilen 
Programmvorbereitung 
Aufruf des Titelbildes 
Sprung ins eigentliche 
Spielprogramm 
Zufällige Auswahl ei- 
ner der 378 verschiede- 
nen Spielszenen 
Coconut Joe in der obe- 
ren Ebene 

Szenenwechsel in der 
oberen Ebene 
Kontrolle, ob Joe eine 
Leiter betritt 
Spielende durch Tod 
von Coconut Joe 
Kontrolle und Verzwei- 
gung, wenn Joe einen 
Gegenstand berührt 
Sprung von Coconut 
Joe 

Coconut Joe auf der 
Leiter 

Coconut Joe in der un- 
teren Ebene 
Szenenwechsel in den 
Katakomben 



Zeile 




1- 


11 


20- 


133 


135- 


136 


137 





140- 170 



1000- 


1110 


1500- 


1520 


2000- 


2002 


2005- 


2010 


3000- 


3200 


4000- 


4030 


4500- 


4530 


4550- 


4640 


4800- 


4820 



4900 Schatz aufnehmen 

4990- 4995 Betreten der Leiter in 

den Katakomben 
5000- 5020 Sprung von der Leiter 

in die obere Ebene 
6500- 6530 Abkontrolle des Titel- 
bildes und Initialisie- 
rung der restlichen 
Grafik 

10000-25030 Zusammenstellung der 
einzelnen Szenen 

26000-26030 Punktanzeige 

26040-26070 Anzeige der Chancen 
einen Schatz zu heben 

26080-26110 Anzeige des Überle- 
bensbonus 

27000-27080 Ausgabe des Gonges 
bei Einsammeln eines 
Gegenstandes 

28000-28014 Copyright 

29900-29904 Abspeichern der Cha- 
rakteren 48 bis 57 

30000-30140 Bild ausgeben 

30510-30575 Anzeige der Titelschrift 

30800-30845 Generierung der Grafik 
Coconut Joe 

3 1 000-3 1 1 60 Spielen des Titelliedes 

3 1 500-3 1 540 Melodie vor Spielende 

32000-32110 Belegung der Haupt- 
grafik 

Wenn Coconut Joe gestorben ist, so 
erscheint wieder das Titelbild. Durch 
Druck auf den Aktions knöpf können 
Sie ein neues Spiel beginnen. 
Ich hoffe, daß Sie genausoviel Spaß 
beim Spielen dieses abwechslungsrei- 
chen Spieles haben werden wie ich es 
habe und auch schon bei der Program- 
mierung hatte. 

ANMERKUNG: Pro Szene werden die 
oben genannten Punkte nur einmal 
vergeben, auch wenn der betreffende 
Gegenstand mehrmals übersprungen 
wird. 

Wem es zu lange dauert, in die Wüste 
zu kommen, der kann die erforderliche 
Punktzahl in Zeile 142 entsprechend 
reduzieren. 



1 REM tttttUttttttttU^^^^ 

2 REM * M fl V R 

3 REM * 

4 REM t Ei vi SPiel in 378 Bildern fuer den TI 99.'4 A 

5 REM % beschrieben in Extended BRSIC fuer Joysticks 

e REM * -™™ 

7 REM t <c> 1984 by Volker Becker 

ft REM * Sl-.eirihacher Str» 10.. 6379 Ob er u.r sei & 

9 rem ##*#m****m*m***m 

10 REM 

11 REM 

20 RANDOM IZE 

40 CRH. CLERR • •■ CRH INITIPL<PflT*< >>= • CALL RSCIISET 

110 CRH MAGNIFYO): ' CALL SCREENC 4 > ■ • FÜR !>1 TO 1.4 == CR!.!.. COLORC I > 1 .. 1 > : 

I ■ ■ 
130 CALL BILD ■■ CALL CRIGHTCPHTSO) 

13g G0SUB 10000 •• GOSUB 11100 :: G0SUB 12000 •■ ■ CALL DELSPRITEXflLL) 
133 P-0 : - M~0 • : ?~2100 
135 CALL C0L0RC3, 2,13, 4,2, 13.. 1?, 11, ?':>■■ • CALL TITEL 
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136 GOSUB 6500 

137 GOTO 1000 

140 CRLI. DELSPRITEC RLL. ) 

1.41 SKP™8 :: Z~2>108 :: CRLL ZEIKZVi CRLL PUNKTE 1 ' P ■' : : CALL MOEGLICHKEIKM > : : I 

F Z~8 TUEN CRLL KAMERAD = : GOTO 1.32 

14:P if P/?,mm THEN 145 ELSE GOSUB 10200 : ! GOTO 150 

1 45 ON I NT C RND+ 1 - 5 >GOSUB 1 0800 .. ! 0108 

1 50 OH I NTC RND#S+ 1 „ 5 )GÖSUB i 1 000 , 1 1 ! 00 .• 1 1 200 

1 fifl UN I NK PND*?+ 1 .. 5 *)G08Uß 1 2000 , 1 2 1 00 .. 1 2200 

1 65 I F I NT( RHD* 19+1.5 >-5 THEN CRLL SPR I TEC #3 • 36 , 9 .. 1 76 , 85 ■' = = P 2-5 000 ' • VRR™8 EL..S 

F I F IN K R W> % 1 9+ 1 ., 5 >™ 1 7 T HE N CR!.... L S RR I TE C #3 , 3 6 , 1 5 .. 1 7 6 .■ 1 5 7 ) : ! P 2™ :: 3000 : = V AR « 2 

170 RETURN 

1000 GOSUB 140 

■I 1 W CRLL SPR I TEC # 1 , 68 , 1 3 , 1 22 , 238 > 

UW CRLL JOYSK 1,H,YV < IE X*=8 THEN 1040 

1030 CRLL SOUNDC>5,523,0): = IF X<fl THEN CRLL PRTTERNC#1,68>EL8E CALL FRTTERNCftl > 

R4 :• 

1 040 CRLL MOT I ONC #1,0 , X*2 > 

1045 CRLL KEYC 1 , T , 8 > - IF T=18 THEN 4000 

1 050 CRLL POS I T I ONC # 1 , X .■ V ) : : I F Y< 1 2 OR Y >239 THEN 1 500 

1 nfift HR! | GOHARC IS , C Y+9 V8, BV ) : f . IF BV=BVO THEN 2000 

1.070 CRLL JOYSK 1 ,X,YV = IF X~8 THEN 1098 

1880 CRLL SOUND'- -5,261. ,0): ■ IF X<@ THEN CRLL PATTER NC #1 , 76 >EL.8E CRLL PATTERNC#1, 

92 j" 

1 090 CRLL MOT I ONC #1,0, X#£ > 

1095 CRLL KEYC1.,T,S>' - IE T«18 THEN 4000 

1100 CRLI. CniNCCRI.I .fiT^' IF ST TUEN 3000 

1.1.1.0 GOTO 1.820 

i.500 GOSUB 1.40 

1510 IE Y >2 39 THEN C Rl ... ! . 3 P R I TE C # 1 , 3 4 , 1 3 ,122 , 1 2 >E I... 8 E C AI. . !.... SPR I T E C * 1 , 6 3 , 1. 3 , 1 22 ,238 

) 

1528 GOTO 1828 

2000 CAL L GCHRRc: 28, C Y+9 V8, BV > : : IE BV>1 35 THEN CRLL JOYSK 1 .• X , Y ) - GOTO 2882 EL 

:-;E 2885 

2082 IF Y»-™4 THEN 4500 

2885 CALL. M0TI0NC#1,0,8>- CRLL PRTTERNC #1 , 1.32 ) : : CRLL MOT I ONC #1 , 1.8, 8 > 

2810 CRLL KAMERAD = = GOTO 132 

3080 CRLL MOTION'' # 1,8,8) 

3805 ON SP2 GOTO 3180,3208 

3180 GOTO 2805 

328 fl" M--M+1 :: CALL MOE GL ICHKEIKM >•■ ■ CALL. DEL3PRITEC #2 ) •■ P'-P+IO :: CRLL P LINKTE''. 

P '>'.-. CALL GGNGn.}:- GOTO 1828 

4080 STV*0 : : CALL POS I T I ONC # 1 , X , Y V : CALL L OCR TEC # 1 , 1 1 2 , Y "> 

40 1 FOR I ™ 1 1. TD 1 90 STEP 10 = - CALL SOUND 1 - -• 1 80 ,1,8,1+2 , 8 , I +4 , 8 > = ' CALL CO I HOC R 

LL.,ST>= = IF ST THEN STV-1 

4015 NEXT I 

4828 CRLL POSITION«:: #1, X, Y V = CRLL LOCRTEC #1 , 122, Y > 

4025 IF STV=1 RHD SKP«0 THEN P-P+Pl •• •■ CALL PUNK TEC P > : : Z*&+2\ :; CRLL ?EIK?>= = 

8KP~SKP+i 
4038 GOTO 1.028 

4500 CRL. ' RATTERN':: # l . 1 32 > = = CRLI .. MOT T ON«:: # 1 . i"i . 8 ':• : ■ CAL ! . ! ..OCRTEf #1.1. 33 . 1 ' : ' 1 "t 
4510 CRLL P0SITI0N(#1,X1,Y>= = IE Xl>=173 THEN 4558 ELSE. IF XlOl.37 THEN 5888 
4520 CALL. JOYSK 1 , X, Y ) : • CALL MOTION':: #1 , -Y*l , 5, ) - ■ IE Y^8 THEN -4538 ELSE CALL S 
OIIND'::-50.523-Xl,0) 
4530 GÖTO 4510 

4550 CRLL. JOYSK 1, XI ,Y>= ■ IF X«0 THEN 4578 
456 C AI.... I. . SOUND f - - 5 ,523 , 8 > ■ • I F X 1 < 8 THEN CAL. I . . P AT T E R NC # 1. , 6 8 ■€!. . SE C R !.... !... P A T TERNC # ! 

• 84 :> 

4570 CALL. M0TI0N(#1,8,X1*2> 

4580 CRLL POS I T I ONC # 1 , X , Y > ■ ■■ l F Y< 1 2 OR Y >239 THEN 4888 

4598 CRLL GCHRRC 2 1,C Y+9 >/8,BV> = ■ IF BV=BVU THEN 2885 ELSE IF BV>135 THEN 4998 
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46m CRLL J0YSK1,X,Y >" ijt j<=0 THEN 4620 

4618 C RL L S Ol. J MIX - 5 .. 26 1 , > " I F X < 8 T HEN C flu. . P fl TT ERNC # 1 , 76 ':€!.... S E C RL. I .. P R TT E R M < # 1. , 

92 > 

4620 CRLL MOTIONi;#1..0.-X*2) 

4630 CRH. r:OINC«'R! I , R '!":•= = TR ST T'HFN 49RR 

4648 GOfÖ 4550 

4880 GOSUB 148 

4810 IF Y>239 THEN CRLL SPRITES ,84, 1.3, 1.76, 12 >EL.SE CRLL. SPRITE 1 - #1 , 68, 13, 1.76,238 
') 

4820 GOTO 4558 

4908 IF M>0 THEN CRLL DELSPRITEC #3 > ■■ P^P+P2. ■■ ■ CRI. ! PI IMKTFY P ■;. r : M«M-1 :! rflM M 

OEGLICHKEITCM)" CRLL GONG<VRR>" GOTO 4558 " ELRF 2RR5 

4998 IF BV0O81 THEK 4688 

4992 CRLL .JOVSTC 1, :«:,?::"= IF Y=4 THEN 4995 ELSE 4688 

4995 CRLL PRTTERNC #1 , 1 32 > < = CRLL MOTIDhK #1 .- 0.- > : ! CRfJ... I.OWFC #1 , 1 ?9 , 1 ?1 v : GHT'n 

4518 
5000 CRLL MOTION<#1. ,8,0>" CR!..!... JOYRTU . X . V) : = TP Y-=-4 THFH 452R Fl RF TP X~R THF 
N 5880 ELSE 501.0 

5018 CRLL L0CRTE<#1, 122.. 121+4*X>= ■ IF X<8 THEN CRLL PflTTERH< #1 ■ 68 >F! RF HRI I PRTT 
ERN<#!,84> 
5028 GOTO 1.820 
6508 CRLL CONDÜRPRSR< B< ), 1 > 
6505 CRLL KEVU ,T,8>" IF TOI 8 THEN 6585 
6518 CRLL RSCII2 " CRLL HCHRR'f 2 . 1 . 58 . 3? > 
«520 FOR 1=48 TO 57 •• • CRLL CHRR< I .PRtk 1-48 Vs : •. MFXT T 
6530 RETURN 

18080 CRLL COLORC3,2, 13,4,2, 1.3, 1,1, 1,2, 13- 1,5,7.. 1,6, 1 ,!>= = CRLL SCREEN<41" GORIJ 
B 20880 ■ ■ RETURN ! 2 Baumst-äe-mm* 

1 8 1 80 CRLL COLO'R* 3 , 2 , 1 3 , 4 , 2 , 1 3 , 1 , 1 ..' 1 , 2 , 1 3 ■ 1. . 5 . 1 . 1. . 6 . 7 . 1 > ■ ■ f*:p,l I RfiRPFN-r 4 ^ " r,riRI I 
B 20808 ■ ■ RETURN ! 1 Bau.m*t*mm 

10208 CRLL C0L0R<3, 2, 12,4,2,12,1,11,1,2.1.1 .5.1.1.6.1 -1 >»: rpi I RRPFFI-K i? '•>■■ •■ GOR 
IIB 25008 ' ■ RETURN ! Pyramiden 

1 1 880 CRLL COLORC 9 , 7 ,2,18, 2 , 2 ) = ■ BVI>96 ■ ■ RETURN ! '!. i rk e Mauer 
1 i 1 88 CRLL CÜLORC 9 , 2 , 2 , 1 8 , 7 , 2 > " BVU« 184 - RETURN ! rechte Mauer 
1. 1 280 CRLL COLOP* 9,2,2, 1 ,2,2 > ■ ■ BVI>8 = : RFTI IPM i b H r.* M* i i pr- 

12800 CRLL CDL0R<M.4,8,2,7, 1,2,8,7,2, 11,7,7, 13, 1 1 , 1 1 > : : BV0«81 ■ ■■ RETURN f 1 Fall 
•5ru.be 

1.2188 CRLL COLORCH, 2, 2. 7, 11, 11,8,7,7, 11,7,2, 13,2, 2>= = BV0=129 '■ ■ RETURN ! ? F.al 
l9ruberi 

12208 CRLL COLOR.; 14,2,2,7, 11, 1.1,8,7,7,11,7,7,13,11,11 ">■■■■ BVO«0 == RETURN ! keine 
Fal l9ru.be 
20808 ON INK RND*4+1 „ 5 )GOTO 281 SR . 2R?RR . 2R3RR , 2PWRR , 20500 
28180 RETURN 

20288 CRLL SPRITEX #2, 116,7, 122, 157,8, -25' = SP2*1 " Fl.^1.88 == 21*300 = : RETURN ! 
Schl.ari9e 

28380 CRLL SPRITEC #2, 188,7, 1.22,20,8, 1.8 >^ SP2*l . . Pi=50 " Z1=2RP ■■ ■■ PFTI IRN i r n" 
Ilerider Bäumst awt 

28408 CRLL SPRITEC#2,60, 12, 122,85 >= : SP?-1 " Pl=3R ». 71 = 1 RR == PFTMPN ' Fpus- 

28580 CRLL SPRITE<#2>124.-7, 122, 15?)" SP2«2 " P1=0 " 21«-500 " "RETURN" l' Kokos 

■nu.*.«. 

25888 ON I NT< RND#3+ 1 . 5 >GOTD 28 1 88 , 25828 , 28288 . 2^030 

25828 CRLL SPR I TEC #2 , 1 88 , 5 , 1 22 , 85 :> ■ ■ SP?« 1 - PI »40 ■: ä 71^1 RR : : PFTI IPN ' K & f i . « 

25838 CRLL SPRITE<#2, 148,8, 122,157>" SP2«2 == Pl^Pt c 71^-1000 :: RFTI IPN V""(.jäi«. 

eretel le 

26880 SUB PUNKTE':: P > 

26818 R$=STR*<P> 

26820 DISPLAY RTC 1 , 1 >SIZE<' LENC m >+3 ':. : Rift.» 

2^038 SLIBEND 

26840 SUB MOEGLICHKEIKM) 

26845 IF M>99 THEN M™99 

26858 R'*aSTR*<: M > 
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26060 D I SRI. AY RTC 1,14 )S 1 7FX LEN< fi$ )+3 > : fi*&s " : •■ •• " 

2£070 SUBEND 

26080 SIJB ZEIKZ> 

26085 IF 7<=0 THFM 7«0 

26090 A**ST Rtf Z ) 

26100 DISPLAY AT< 1 , 20 )SIZE< LEN< A* 5+4 ) ' A*8e" 

2611.0 SÜßEND 

2?000 SÜB GÜNGCVAR) 

27005 CALL MOTION*: #1,0,0) 

2781.0 FOR I«0 TO 9 ^ CALL SOUHD<-™250,391 . T ':< = = NFXT I 

27020 IF VAR™1 THEH 8UBEXIT 

27030 FOR 1*0 TO 9 ■■ ■ CALL SOUHD< -250, 329, 1,391 , I + n >: ■• HEXT I 

27040 FOR T»0 TO 9 ■ •• Cfll | sni INDC -?RR . ?fi1 , T , 329 . 1 + 1 1 .391 , T+?l V = ' HF VT I 

27050 IF VAR-2 THEH SUBEXIT 

27060 FOR Ia0 TO 9 ■ ■ CALL SOUHDC -250, 391 , T .261 , 1 + 1 1 .339 . T +?1 *> - MFXT T 

2707 ? FOR I»0 TO 9 - CALL f3Ül.lNfX-?5fl.*?61 . 1 >391 , T + 1 1 ,339, 1+21 'r- -. NFXT T 

27080 SUBEND 

28000 SÜB CRIGHTCPATSO!) 

28002 DATA 48 , 3C4299A 1 A 1 99423C .- 50 , 66A52424424824 18.51.. 78 A4 24383423 A37i": , 58 . RflRfl 1 f: 

24F82 1 1 20C , 54 , 00003C40C04 1 423C , 55 , 08 1 4 1. 888D4 1 5 1 9 i. 6 

28004 DATA 57 . 0600334C88080808 

28006 RESTORE 28002 

2800A FOR 1 = 1 TO 7 =* READ C,C* • ■■ CALL CHRR< C . C* > : : HEXT I 

28009 CALL CHRR< 56 , PA'TS* 8 > , 52 , PATSf 4 > > 

280 1 DATA 48 , 58 . 56 . 52 . 58 . 50 . 58 . 5 1 . 53 . 54 . 55 . 53 , 57 

28012 FOR 1«1 TO 13 ■■ ■ READ C :: CALL HCHRRf 2 i I +9 . C > : = WFXT I 

28014 SUBEND 

29980 SUB INITIAL/ PAT*0> 

29902 FOR 1*48 TO 57 • ■■ CALL CHRRPRT«: I -PA'W T-4.R V. : = NFXT T 

29904 SUBEND 

30000 SÜB BILD 

300 1 CALL HCHARC 1,1, 58 , 64 ) = ■ CALL HCHRPf 20 . 1 . 59 . 1 fiPl "5 

30020 DISPLAY AT( 3, t > • "■:: „ „ „ . . „ . „ X ., - X . B . „ B „ . „ > <„„„„.,,> <.„..> < , „ > 

c „ „ , < ■ , > (,,,) , - ' . ~ , - " 

30030 CALL VCHRR< 7 , 7 , 65 , 9 > ■ •■ CALL VCHAR'- 7.8. 66 . 9 ^ "I = CRi l vrHAPC 7 ,16, 73 . 9 -. : r r-ft] i 

VCHRR<7,17,74,9> 
30040 CALL VCHAR< 7,25 , 65 , 9 > ■ = CALL. VCHflRC 7 . 26 . fifi . 9 J 
30050 CALL HGHRRt 1 6 , 1. , 1. 20 , 96 > •- •- CALL HCHAR< 1. 9 , 1 , 1 2 1 , 32 > 
30060 DATA 7 , 1 29 , 1 1 2 , 25,1 29 ,112.16. 8 1 . 39 
30070 RE STORE 30060 
30080 FOR I«l TÖ 3 •• ■ READ S..C1 ,C2 

30090 CALL HCHARC 1 7 , S , C 1 .. 2 ') ■ •• CALL HCHRFtf 1. 8 . S . C !■?')■ = C AI | HCHAPf 1 9 . S . C2 .?>;■: HF 
XT I 

30 1.00 CALL VCHAR«:: 20 , 5 .. 96 , 5 > ■ ■ CR!... L VCHflRf 20 . ?R . 1 04 . c ; V = Cfi! I './nNFiPr- 9ft , j fi , 1 :t w : , s -, . 
« CALL VCHAR'f 20 , 17,1 37 , 5 > 
301 1.0 DATA 7, 1.2, 9, 20, 10, 3, 1 1 , 29, 1.2, 1 1 

30120 FOR T«l TO 5 ■■ READ Z,S == CALL HCHRR< Z,S, 33? : : CALL HCHRR< Z, S+1. . 34 ':>■ - CR 
LI . HCHARC Z+ 1 , S- 1 , 33 "> •• •■ CALL HCHAR< Z+ 1 , 8 , 35 , 2 ) = : CALL HCHAR-- "'+ 1 . R+? . 34 ':• 
80130 CALL. HCHRRC Z+2 , S-2 , 33 > = = CAI. I HCHflRf 7+2 . s- 1 , 3 ts ; , 4 ':. = = rh l HfrHRPiT ?+? . R+3 . 34 "- 
= = HEXT I 
30140 RIJBEND 
8051.0 SÜB TITEL 
30520 CALL MRGNIFY<4) 

30525 DATA ,-010 30 600 1 8 88 60 C , 1 @ 3 07OF 1 B 3 3 63 C 3 , 8 3 , 1 3 70F 1 B 3363C 3 , 8 3030 3 R 3 3030 3 fl 
3 , 0F0F 18303030803, 30 3 F 3F 8030 8030 3 , E 1 E 1 3 1 1 9 1. 9 1 9 1 SIS 

805 30 DATA 1. 8 F 8F8 i 8 1 8 1 8 1 8 i 8 , 8 C SC SC 8C8C SC DSD 8 , 7070707 070 707 fl? . 8 CWF r- 0D8f: f: i ':6c 3 . r 1 
C0FFFFC0C0C0C , , 80C0E0F0 1 80C0688 
30532 RE STORE 30525 

80585 FOR 1>67 TO 91 STEP 8 •• ■ FOR K±1 TTi 4 
30540 READ A* =: CALL CHARU +K , A$ > 
30545 NEXT K « « NEXT I 
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30550 >64 

305*5 DATA 6S .<76 ..84 ..92 

301560 FÜR 1 = 1 TD 4 

30565 RERD fl : : CRI. f.. SPRI TE >r #J ■ R , P, . R9 , . n : : . is. 1+3? 

30570 HEXT 1 

30575 SÜßEND 

30900 SUB 0SC IT 2 

30805 CRLL DELSPRITECRLL) 

30810 CR!....!.,. MRGHIFY<3> 

308 1 5 DRTR 68 .• 000 1 00000C020 1,69.01 0303030 1 020C .■ 70 .. E0E0R0E02020G0F .71, FAF0FPIEWR4 

040C ..76.0001 000 000000708 , 77 .. 1 0303 03 1 R 1 1 03 

30820 DRTR 78,. E0E0R0E02020E0E , 79, E0E0E0E04029101 , 84, 0707050704040607, 85, 67070707 

02020203, 86, 0080000030408 

30825 DR TR 87 , 80C0C0C980403 , 92 , 0707050704040707 , 93 , 0787070702040808 • 94 , 008000000 

000F01 . 95 ■ 80C0C0C0808080C 

30829 RESTÖRE 50815 

30830 FOR ist TO 16 

30885 READ C,r:$ ;: CRLL CHRR''C,C$:> 

30840 HEXT I 

30845 SUBEHD 

31000 SUB CONDORPR'SHt B< >,K'0 

31010 DRTR 2 , 80000 , 30000 , 80000 , 80000 , 1 , 1 5000 , ?98 . 1 , 1 ^000 , 377 . 1 . 1 R000 . 393 .1.1 Sflflfl 

. 329 ,1,1 5000 , 349 , 1 • 1 5000 ,329 

31020 DRTR 1 , 15000 . 349 , 1 . 1 5000 .391 . f> . 32F1 . 361 , 349 , 440 . f. . 349 . 440 , ? , 44FI , *>??, , f, , 349 . 4 

40, 1 , 466, 587, 1 , 440, 528 

3 1 030 DRTR 6 , 349 , 440 , 1. , 1 5000 , 39 1 . 1. . 1 5000 . 34^ ,4,1 74 . ?3fl , 393 , 349 

3 1 040 DRTR 6 , 1 5000 , 293 , 2 , 1 5000 , 349 , 7 , 1 5000 ,293 , 1. , 1 5000 , 220 

31 041 DRTR 2 , 80000 , 80000, 30000 . 80000 .1.1 5000 . 393 ,1.1 50flfl , ?77 .1.1 5RRH . 393 , 1 . lSflflß 
. 829, 1 , 15000, 849, 1 , 15000, 329 

3 1 042 DRTR 1 , 1 5000 , 349 , 1 , 1: 5000 , 39 1. . f, . ?Pfl . ?fi 1 . 349 , 44Pi , f. , 349 . 440 , 3 . 44a , S33 , f. , 349 , 4 
40, 1 , 466, 587, 1 , 440, 523 

3 1 043 DRTR 6 , 849 , 440 , 1 , 1 5000 , 39 1 , 1 , 1 5000 , 849 , 4 , \ 74 , 228 , 293 , 349 

31044 DRTR 6 , 1 5000 , 293 ,2,1 5000 , 349 ,7,1 5000 . 293 . 1 . 1 5W00 , 44F1 ', 4 , \ RRR0 , 1 «SRflfl , 1 RflRfl , 1 
5000, 3, 466, 587, 1 , 440, 554 

3 1 045 DRTR 1 , 466 , 587 , 1 , 440 , 554 , 1 , 466 , 587 . 1 . 440 , 554 , 6 . df.K , 5 «7 . 1 . 5R7 , 698 . 1 . 466 . SS 7 
,4,220,261,349,440 

3 1 046 DRTR & , 440 , 523 , 1 , 466 , 587 , 1 , 44fd , 523 , 6 . 349 , 440 .1.1 FSflPIPf . 39 1 . 1 . 1 FTOflfl , 349 .4.1. ?4 
, 220 , 293 . 349 , 6 , 1 5000 . 293 

3 1 047 DRTR 2 , 1 5000 , 349 ,8,1 5000 , 293 , 
31860 RESTORE 31010 

31070 R7,STM*0 

31075 FÖR I»0 TO 2 !! CRLL SOUHDC-600.220.lv.* NFXT I 

31086 RERD K ■ ■ IF K-B THEH 31060 

31090 RERD B<i:J,ß(2),e(3>,B'T4:J 

31100 FOR 1=1 TO K 

31110 FOR J-i TO 4 

31120 8TV*STV+i ■■• IF STV>HZ THEN RERD H£,f1l,M2 == STV=1 

31130 FOR L-0 TO 2 ■■ ■ CRLL 8OUHDO600,M1 , L+l ,M2 -L .B< J>.9>- ■ NFXT \ •■ •• CR! L KEY' 1 

,T,8>- IF SO0 THEN SUBEXIT 

31140 HEXT J • « HEXT I 

31150 GOTO 31080 

31160 SUBEHD 

81500 SUB KRMERRD 

31510 DRTR 500 , 1 30 , 500 ,174 , 250 , 220 , 25 , 30000 ,100. ??P\ . 25 . 30PI0F1 . 508 . p?0 . RRFi . 1 9PI . 1 cm 

0,174,500,180 

31520 RESTORE 81510 

3 1 525 CRLL DELSPR I TE< # 1) 

31530 FOR 1*1 TO 10 -■ * RERD L,T '■ ■■ CRLL SOUHD< !. . T . V « NFXT I 

31540 SUBEHD 

32060 SUB RSCnSET 

320 1 DRTR .. 1 03070F 1 F3F7FFF , 80C0E0F0F8FCFEFF . FFFFFFFFFFFFFFFF . ß&nFiftflfl i C13070F 1 R . 

3F7DFFD7RBFE, 007FFFD7RF96BC38, B069C08, FFFF7F7F3F1F0701 
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3?020 DHTft FFFFFEFEFCF8E08 , 839F 1 F3F3F7F7FFF . CßfFflFSFCFnFFFFFF ■ FFFJ-TFTF^FSF 1 F 1 F . FF 

FFFEFFFCFCF8F6, FFFFFFFFFFFFFFFF. , , , , , , , , , , , , FFFFFFFFFFFFFFFF 

32030 DRTR 00004 i 63567D2B I E , 0F07030B03060C 1 8 .■ 002068 HDE 7 4B8F ■ FßCSSPeflfißCRfiPW , , rf 

0F1F1F0F0F0F0F.. F0F0F0F0F8F8F8F, , , , , , ..0F0F1F1F0F0F0F0F 

32R40 DRTR F0F0F8F0F8F8F8F0 . .. .. .. - . .. ■ . . .. .. .. .. .. FFFF.. .. ■ .. ■ .. .. FBFBFB00DFDFDF .. , .. , 000000RR0 

1. 3 70 R .■ 1 5 3 F 4 792 BB924 438 .. 1 C 2 E5FFB D 7RE FCF 8 .. F R8 408 

3 2flS D R TR F BFBFB0 DFDF D F ...... 0803 3 303 i 8 i B 1 B .. ! B :!. B 1 FOF 3 030 308 , 00C0 C 6 f: SC; £T. ?r. , 

7860606060E0C , F'FFF .. .. .. .. 000E 1 B2E4 , S50R1 1 58R'000fl05 

32060 DRTR 000080603008 1 008 . 50R00850R0 1 0R040 , FFFFFFFFFFFFFFFF , , , , 00080000000 1 03Fi 

6 . 070D0D0706030301 , 000000000080C060, E0B6B0E060C0C08 

3 3070 D R f R FFFF F F F F F'FF FFFFF .■ - .. .• 0003070863 1 10907. 307 F 1. F0 2 4 08 1. 8 , 8 P f: R Fi 8 f": 1 ? f: 

, 8fl'C0F0F080 4 203 , 1F1F18181F1F 1. 8 :l. 8 .. F 8F 8 1 8 1 SFB F 8 1 8 1. 8 

3 2 8 DRT R . . Ö080F3F F F ■ FF 3F F 3 . 00 A 00 AR r: Fi"i F- r. FF . FFFf: FFir": 

32090 RESTORE 32010 

32100 FOR t=32 TU 1.43 ■ ■ • PFRD CS =• CRi.l CHflPf T ■ CS ^ = NF KT T 

32110 SUBEHD 
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Definition von Charakteren, Teil 2 
Umwandeln eines Codefeldes 

Wenn Sie eine Datei mittels des Pro- 
grammes ASCIIDEF oder des Unter- 
programme s ACIIPAT erstellt haben , 
so muß diese Datei in einen für den 
Drucker lesbaren Grafikcode umge- 
setzt werden. Das ist so zu verstehen, 
daß für den Drucker ein zweiter Zei- 
chensatz generiert wird. Dazu wird 
das Programm ASCIIUMW verwen- 
det. Das Programm arbeitet nach fol- 
gendem Prinzip: Der im Codefeld ent- 
haltene Hexadezimale Code wird in 
einen Dezimalen Code umgesetzt. 
Mittels dieses Dezimalcodes wird in- 
tern eine binäre 8x8 Punkte Matrix 
erstellt. Diese Matrix wird dann von 
Spalte 8 bis Spalte 1 von Zeile 1 bis 8 
abgerastert und von jeder Spalte der 
dazugehörige Dezimalcode ermittelt. 
Die dem jeweiligen Dezimalcode zuge- 
ordneten Zeichen werden jetzt in einer 
Stringverknüpfung zusammengesetzt. 
So entsteht für jedes Zeichen intern 
ein aus 8 Zeichen bestehender String. 
Dieser String wird auf der Datei zu- 
sätzlich zu dem Hexadezimalcode ab- 
gespeichert und entspricht im Grafik- 
modus des Druckers exakt dem auf 
dem Bildschirm zugeordneten Zei- 
chen. 

Laden Sie das Programm ASCIIUMW 
ein und starten Sie dieses mit RUN. Sie 
werden nun aufgefordert den Namen 
des entsprechenden Codefeldes (z, B. 
DSK1.FELD oder CS1) einzutippen. 
Alles weitere erledigt der Rechner für 
Sie. Das umgewandelte Codefeld wird 
wieder unter dem gleichen Namen auf 
den entsprechenden Datenträger zu- 
rückgeschrieben. Auch ein umgewan- 
deltes Codefeld kann mittels des Pro- 
grammes ASCIIDEF eingelesen und 
editiert werden, muß jedoch wenn es 
zurückgeschrieben wird, erneut um- 
gewandelt werden. Die Umwandlung 
eines Codefeldes muß in der Regel nur 



einmal erfolgen um den Zeichensatz 
für den Drucker zu belegen. Die Um- 
wandlung dauert mittels Diskette etwa 
25 Minuten, mit Recorder dagegen ca. 
1 Stunde. Der Rechner informiert je- 
doch laufend, welches Zeichen im Mo- 
ment umgewandelt wird. Die so umge- 
wandelte Datei ist Voraussetzung für 
den Ausdruck des Zeichensatzes so- 
wie für die Erstellung einer Hardcopy. 
Auch mit einer umgewandelten Datei 
kann mittels des Unterprogrammes 
ASCII SET der Zeichensatz umbelegt 
werden, da der Hexadezimalcode 
nicht zerstört wird. 

Ausdruck des grafischen Zeichensatzes 
Um den Zeichensatz auszudrucken, 
wird das Programm ASCIIPRINT her- 
angezogen. Laden Sie das Programm 
ASCIIPRINT ein und starten Sie die- 
ses mit RUN. Sie werden aufgefordert 
den Namen des Codefeldes einzuge- 
ben (z. B. DSK1.FELD oder CS1). Da- 
nach werden Sie nach dem Programm- 
namen gefragt, der in der Seitenüber- 
schrift erscheinen soll. Nach Eingabe 
dieser Informationen erfolgt der Aus- 
druck. Achten Sie jedoch darauf, daß 
der Drucker vor dem Programmstart 
am Anfang einer neuen Seite steht, da 
das Programm den Seitenvorschub 
von 72 Zeilen beim Drucker festlegt, 
kurz nachdem es gestartet wurde. 

Erstellen einer Hardcopy 
Zuvor müssen einige Einschränkun- 
gen gemacht werden. Das Programm 
erstellt eine Hardcopy des Bildschir- 
mes mit einem selbst belegten grafi- 
schen Zeichensatz. Dazu muß jedoch 
ein umgewandeltes Codefeld vorhan- 
den sein. Eine Hardcopy wird nur von 
der auf dem Bildschirm erscheinenden 
Grafik erstellt, nicht jedoch von Spri- 
tes. Die Sprite Charakteren müssen 
also, wenn sie nicht copiert werden 
sollen, mit CALL HCHAR oder CALL 
VCHAR vorher als normale Grafik 
auf den Bildschirm gebracht werden. 
Das Programm copiert den Bildschirm 
von Zeile 1 bis 24 und von Spalte 2 bis 
31. Spalte 1 und 32 werden nicht co- 



piert, sind jedoch auf dem Bildschirm 
meist auch nicht sichtbar, da sie die 
linke und rechte Begrenzung darstel- 
len. 

Doch nun zum eigentlichen Copier- 
vorgang: Tippen Sie das Unterpro- 
gramm COPY zusätzlich zu Ihrem 
normalen Programm ein oder laden Sie 
dieses mit MERGE auf ein bestehen- 
des Programm auf. Rufen Sie das Un- 
terprogramm an gegebener Stelle im 
Programm auf mit Angabe der ent- 
sprechenden Datei", auf welche der 
Bildschirm gespeichert werden soll. So 
z. B. CALL COPY („DSK1.BILD") oder 
CALL COPY („CS1"). Bei der Ver- 
wendung eines Recorders ist jedoch 
Vorsicht geboten, da der Rechner die 
Steueranweisung auf dem Bildschirm 
ausgibt, und somit das zu copierende 
Bild scrollt. Es ist deshalb bei Recor- 
derbetrieb besser, den OPEN Befehl 
aus dem Unterprogramm herauszu- 
nehmen und OPEN #88:„CS1" ... iL 
das Hauptprogramm vor die Generie- 
rung des Bildes zu schreiben. Das Un- 
terprogramm heißt dann nur noch 
COPY und wird mit CALL COPY auf- 
gerufen. Die so gespeicherten Copier. 
können nur mit dem Programm CO- 
PYPRINT umgewandelt werden bzw. 
ausgedruckt werden. 
Laden Sie zu diesem Zweck das Pro- 
gramm COPYPRINT und starten Sie 
dieses mit RUN. Sie erhalten dann eir. 
Menü worin Sie auswählen können oh 
Sie eine Copie umwandeln oder aus- 
drucken wollen. Das Ausdrucken is: 
nur mit einem Diskettenlaufwerk mög- 
lich, da ein Recorder durch die Struk- 
tur des Rechners nur eine Satzläng^ 
von 192 Bytes verarbeiten kann, je- 
doch eine umgewandelte Hardcopy 24 
Sätze» zu je 240 Bytes hat. Der Auf- 
druck einer Hardcopy erfolgt jedoci 
auch bei der Umwandlung. Da die ei- 
gentliche Umwandlung nur ca. IV2 N Mi- 
nuten dauert, können Benutzer eine; 
Recorders über die Umwandlung c\t 
Copien ausdrucken. Wenn Sie ci-. 
Umwandlung gewählt haben, so getez. 
Sie die Datei ein, in welcher der Zti- 
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chensatz für den Drucker gespeichert 
ist. Der Rechner liest nun die Datei 
ein. Danach geben Sie die Datei ein, 
unter welcher Sie den Bildschirm ab- 
gespeichert haben. Der Rechner wan- 
delt jetzt die Bilds chirmcopie in ein 
auszudruckendes Bild um. Dazu wird 
der 8stellige Druckerstring für das 
entsprechende Zeichen gelesen, und 
diese Strings zusammengesetzt. Eine 
Bildschirmzeile besteht somit aus ei- 
nem 240 Zeichen langen String. Nach 
der Umwandlung können Sie, sofern 
Sie ein Laufwerk besitzen, diese umge- 
wandelte Copie abspeichern. Die Co- 
pie wird jedoch ausgedruckt, egal ob 




Sie abspeichern oder nicht. Wenn Sie 
weitere Umwandlungen mit dem glei- 
chen Zeichensatz wünschen, so ant- 
worten Sie bei der Frage mit ,J'. Dann 
geht es weiter mit dem Einlesen der 
Bildschirmcopie. 

Dieses Programmpaket soll einige An- 
regungen bringen, was mit dem TI in 
EX-BASIC alles machbar ist. Einige 
Programme können ohne weiteres zu- 
sammengefaßt oder umgeändert wer- 
den, so daß z. B. eine Hardcopy direkt 
im Programm ausgedruckt werden 
könnte. Dies würde jedoch bei eigenen 
größeren Programmen eine Speicher- 
erweiterung voraussetzen. Disketten- 



laufwerkbesitzer können auch anstatt 
der Sequentiellen Dateien Direktzu- 
griff sdateien verwenden. Es wurden 
jedoch Sequentielle Dateien benutzt, 
da nur diese mit einem Recorder be- 
nutzt werden können, und das Pro- 
grammpaket so vielen Benutzern wie 
möglich von Nutzen sei soll. Pro-. 
grammintern werden die Dateien so- 
wieso als Direktzugriffsdateien be- 
nutzt. Dazu wird schließlich die kom- 
plette Datei in Felder eingelesen. 
Ich würde mich freuen, wenn ich Ih- 
nen die mühselige Arbeit der Zeichen- 
definition mit diesen Programmen er- 
leichtern könnte. 



IR GRAPHISCHEN 



18 REM ****************************** 
12 REM * ASCII U M N * 

14 REM * Umwandeln eines Code-Feldes * 

16 REM * * 

18 REM * TI 99/4 A * 

2B REM * + TI Extended BASIC * 
22 REM * + externer Speicher * 

24 REM * • % 

26 REM * <c> 1984 foy Volker Becker * 

28 REM * Steinbacher Str. 1© * 

39 REM * 6378 Oberursel 6 * 

32 REM ****************************** 

34 REM 

36 REM 

100 DIM ASCI I*C112) ,(3$<112> 

110 DISPLAY AT (1, DERASE ALL : "UMWANDLUNG EINES CODEFELDES 

DRUCKER-AUSGABE " 

120 DISPLAV AT<6, 1> : "NAME DES UMZUWANDELNDEN CODEFELDES CöERAET , NAME) " 

138 ACCEPT fiT(8, 1) BEER: DATEI* 

148 ON ERROR 138 

158 OPEN # 1 : DA TE I * , I NPIJ T , SEOUEN T I AL , I N TERHAL . F I MED 88 

168 OH ERROR STOP 

170 FOR 1-32 TO 143 

189 I NPU T # 1 : G $ C I - 32 ) , ASC I I * < I -32 > 

180 NEXT I 

288 CLOSE #1 

218 OPEN tt 1 : DA TE I $ , OU TPU T , S E0.UEN T I AL ■ I N T ERN AL , F I XED 80 

2 28 D I SPL A V A T < 1 8 ,1) : " U M W A ND L U N <3 DES 2EICHENS->" 

238 FOR K=32 TO 143 

240. D I SPL A V A T < 18 , 26 ) : US I NÖ " tttt # " : K 

259 HEX*=ASCI IKK-32) 

268 M=l- 

278 C$="" 

280 H * =3E'3 $ < HEX * , 1 , 2 > 

299 e>0 

880 FOR L=LENCH*)TO 1 STEP -1 

3 18 B * = SE*3 $ (. H * , L , 1 ) 

328 FOR J~0 TO 5 

338 IF ASC(B*>-65+J TUEN A«1B+J : : 

348 HEXT ,T 

350 A^VALCE*) 

368 D=D+A*16 A E 

370 E=E+1 

388 NEXT L 

398 IF D=0 THEM FELD* CM) --"00000808 

488 D=D/2 

418 I F D= I N T ( D > THEN C *« " " &C $ : : TO 439 

428 C*="1"&C$ : : D« INT CD) 



OTO 360 



)0 TO 450 
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430 
440 
459 
46© 
47i3 
4S8 
49© 
588 
510 
529 
530 
548 
558 
560 
578 
589 
590 
690 
618 
620 
630 
649 
658 
668 
670 
688 
690 
780 
710 
728 



<S THEN FELr>$<R>="8"S:FELI>*<:R> 



IF INT<rO>0 THEN 408 
FELDS a-U «CS : : C*="" 
M=M + 1 

HEX$*=SEG$<HEX$,3,LEN<HEX*>-2> 

IF HEX$0" M THEN 288 

D~B 

FOR R=l TO 8 

IF LEN<FELD*<R) 

NEXT R 

'3RAPH$="" 

FOR N=l TO 3 

FOR O-S TO 1 STEP -1 

B * -SE 6 * < FEL » * < > , N ,1) 

D*D + VAL < B $ > #2 A C 0- 1 > 

NEXT O 

GRAPH $*GRAPH$8.CHR*<D) 

D=0 

NEXT N 

<3$<K-32> «GRAPH* 

NEXT K 

FOR 1=32 TO 143 

PRINT ttl :<3*( 1-32) ,ASC1 I*C I-32> 

NEXT I 

.CLOSE #1 

DISPLAY A T (. 1 8 , :I > : " NOC H EINE UM MAN DL U N<3 C 3/ N > ' ' 

ACCEP T AT < 18 , 28 > VAL I PATE < " JN" > S IZE < 1> BEER : SKP* 

IF SKP*-",T" THEN 110 

CALL CLEAR 

STOP 

END 



GOTO 588 



100 

118 
128 
130 

148 
150 
160 
178 
180 
190 
280 
218 
220 
238 
240 
250 
260 
278 
280 
290 
380 
310 
320 
330 
348 
358 
368 
370 
388 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



* A S C I I P R I N T * 

$ Ausdrucken <siri&& Codefeldes ( ASCII •- Satz > * 

* _ : # 



T I 99/4 A * 

TI Extended BASIC * 
externer Speicher (Lauf' werk oder Recorder) # 
S e i k o s h a G P 700 A <.od&r and e r e n k ornp ar t i b 1 en * 

Drucker mit 8 DOT Matri;-; * 

:> 1984 by Volker Becker * 

Steinbacher Str. 18 $ 

6370 Oberursel 6 * 



REM ***#************#***##********■*******#*#********* 

REM 

REM 

REM I> r u ck er o p t i onen 

OPEN 899:"PI0" ! Eroef fnen der Paralellen Schnittstelle 

N$-CHR*<27>a'.'A" ! Einstellen auf normalen Zeilenabstand 

SL$=CHR*<27>&"ZH" • Seitenl aenge auf 72 Zeilen einstellen 

T10*=CHR*C16)& ,, 010" ! Tabulator auf Position 10 setzen 

Tll$-CHR*Ci£Ofc ,, 81i" ! Tabulator auf Position 11 setzen 

Z V *= C H R $ (. 1 8 > ! Zeilen v or seh u b 

SV*«CHR*C1£> ! Seitenuor schub 

CR * =C HR % < 13 > ! W ag e n r u ec k 1 au f ohne Zeil env orsc hub 

Uf-CHRf <27>& ,, R"&CHR* <32>&"„" ! Unterstreichen mit dem Zeichen 

Gf=CHR$<27)S:"K888" ! Drucker auf 8 Cr aph ikse ichen vorbereiten 

REM Ende der D r uckeroptione n 

DISPLAY AT (.1.. DERASE ALL:" Ausdruck des ASCII Satzes 



<32 mal) 



398 I) I SPL A V A T (. 4 , 1 > : " ASC II Ei ng abe d at e i 



■' 6er- aet .Datei n arne 
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488 

410 

426 

430 

440 

450 

469 

4?0 

488 

490 

580 

518 

520 

530 

540 

* 

550 

560 

57© 



ACCEPT AT<6, 1> BEER : DATEI* 

ON ERROR 40© 

OPEN #1 :DATEI*, INPUT ., SEQUENT IAL , INTERNAL , F IXED 88 

D I SPL A V A T < 8 , 1 > : " Pr og r ammn ame : " : : A C C E P T A T < S , 16 ) BE E P •• P N AHE * 

PRIMT **99:N*;SL* 

PAGE=1 : : GOSUE 540 

FOR 1=32 TO 143 :: INPUT #1 : GRAPH*, HEX* 

PRINT #99: TU*.; 

PR I NT #99 , US I NG " ### " : I ; 

PRINT #99:" " ;HEX*.;" ";G*; GRAPH* 

IF 1-32=56 THEN PAGE=2 :: PRINT #99 : SV* :: OOSUB 549 

NE KT I 

CLOSE #1 : : CLOSE #99 

STOP 

PR INT #99 : TIS* .; "Zeichensats des. Progr ammes " .; PNAME* .; " Seite 



";PAGE;£V* ; 2V 



PRINT #99 : TIS*; "ASCII 

RETURN 

ENI> 



Hex 3. de z irna 1 



2» i eher. " ; CR * ; T 19 $ ; U * 



32100 SUB COPY (DATEI) 



32110 

32120 

32130 

32140 

32150 

32169 

32170 

32180 

32190 

32209 

32210 

32220 

PV 

32239 

32248 

32250 

■";. -~i <-> er* c* 

■-' t- ■£. •_' ■.;■ 

32260 
32270 
32280 
32290 
32308 
32310 
32315 
32320 



! Un t e rp rogr amm zur A bspe i ch er u n g des Bildschi r mes 

! fuer TI 99/4 A 
i 

! <e> 1984 by Volker Becker 
j 

OPEN 888 : DATEI *, OUTPUT, SEGtUENT IAL, INTERNAL , F IXE» 80 

! VORSICHT - Bei Verwendung) eines Cassetenrtrecorders 

' d ar f d e r . PE N Befehl nicht i m Un t © rp rogr amm stehen , 

! sorde r n mu s s im H au p t p r q g r an>m u or der generie r u n g 

! des Bildschi r rne s v e r we n d e t- wer den . 

! Die er :~te Heil» des U n t er pr og r ammes mu s s d an n heissen SU B CO 

! und es wird nur mit CALL COPY aufgerufen, 

i 

FOR 1=1 TO 24 

GRAPH*»"" 

FOR K = 2 TO 31 

CALL GCHARU ,K,CH;' 

GR APH * = G R APH * 8, C HR * ( CH ) 

NEXT K 

PRIMT #38 : GRAPH* 

NEXT I 

CLOSE #33 

SUBEND 



10 REH ********.*************************^**************^ 

12 REM * C P V P R I N T * 

14 REM * Umwandlung ijnci Ausdruck uon B i ldsch irrncop ien * 

16 REM * ■. * 

18 REM * TI 99/4 A + TI Extended BASIC ' * 

20 REM % + Externer Speicher ''Recorder oder Floppy) - $ 

22 REM * + Seikosha GP 700 A oder anderen kompart ib len * 

24 REM * Drucker mit 8 DOT Matrix * 

26 REM * #' 

28 REM * Cc> 1984 by Volker Becker % 

30 REM * Steinbacher Strasse 19 * 

32 REM * 6370 Oberursel 6 * 

34 REM **##**##*#**#*#******#*##**#**#*##***##*********# 

36 REM 

38 REM 

48 REM Drucker Optionen 
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42 
44 
46 
48 
50 



REM 

REM 

T A B *= C HR * ( 1 6 > & " 8 25 " ! Dru ck k op f au f B 1 at t m 1 1 1 © po s i t i o n i e ren 
G * = CHR * C 27 > 8t " K240" , ! Drucker auf 240 Gr aph i k symtao 1 e ei nste I 1 ers 
GS*«CHR*<2?> &" TIS" ! Seilenuorschub auf Graphik einstellen 

52 N*=CHR * (27 > & " A" ! 2e i 1 enyorschub auf Norma 1 modus einste 1 1 er. 
54 REM 

56 R.EM 

53 REM 

99 D I M GRAPH $ ( 112) , B I LD * ( 24 > 

100 DISPLAY ATC 1, DERASE ALL 



C0PV*<24? 

Erstellen der 



Hardcopu 



105 GOTO 5008 

110 CALL HCHAR (3 . 1,32,784) 

115 DISPLAY AT (3,1) :"Name des CODEFELDES 

129 ACCEPT AT (5,1) BEER: DATEI* 

130 ON ERROR 120 

149 OPEN 4t 1 : D A TE I * ., I NPU T 
145 DISPLAY AT (6, DEEEP : " 

150 FOR 1=32 TO 143 
160 INPUT #1 : GRAPH *< 1-32) 
170 HEXT I 
180 CLOSE #1 

190 DISPLAY A T ( 8 ., 1 > : " N arne 
200 ACCEPT AT (10, DBEEP : DATEI* 
210 ON ERROR 208 
220 OPEN # 1 : D A TE I $ , I NPU T 
230 DISPLAY AT (11, DEEEP 
240 FOR 1=1 TO 24 
250 INPUT 4t 1 :BILD*( I) 
260 NEXT I 
265 CLOSE #1 
270 DISPLAY A T < 1 3 , 1 ) BEER 

:>N ERROR STOP 



(GERAET.NAMEV 



SE UEN T I A L , I N TE R N A L , F I XED S 
--> Codefeld wird einge lesen" 

ASCI I* 



der B i 1 d s c h i r md a t e i 



< GER AET. NAME) 



., SEOUENT IAL , INTERNAL , F IXEP 80 
1 — > Co py f e 1 d wird eirigelesen 



-■ - > L..I rn w an d 1 u n oi 1 ae u f t 



BITTE WARTEN' 



280 
280 

300 

318 
320 
338 
340 

358 



FOR 1=1 TO 24 

COPY* ( n=" ,! 

FOR K-l TO 38 

COPY$(I)=COPV*(I 

NEXT K 

NEXT I 

DISPLAY AT<16 . 1) 



&GRAPH $ < ASC C SEG * < B I L D $ <. I ) , K , 1 ) 



H a. r- d c o py abspeicher n < J / N ) ' ' 
368 ACCEPT AT(16,28)SIZE(DVALIPATE>:"JN">BEEP :SKP* 
370 IF SKP*<>"J" THEN 478 
388 DISPLAY A T ( 1 7 , 1 > : M N arne der H ar clcopudatei < G E R AE T , N AME ) 



330 
488 
410 
420 
425 
438 
44Q 
458 
460 
478 
4S8 

500 

510 
520 
538 
548 
558 
568 
57fl 



ACCEP T A T < 19 , 1 ) BEER : D A TE I * 

IF SEG* (DATEI*, 1,3>0"DSK" 

ON ERROR 390 

OPEN ttl : DATEI* 

ON ERROR STOP 

FOR 1=1 TO 24 

RR INT t*l:COPYSCI> 

NEXT I 

CLOSE #1 

COSUB 506 

GOTO 580 

FOR 1-17 TO 19 : : 

DISPLAY AT (17 



THEN 1888 



ITPUT , SEQ.UENTIAL . INTERNAL .FIXED 



OPEN #1 : "PIO" 
PRINT #1:GS* 
FOR 1=1 TO 24 
NEXT I 
PRINT 441 :N* 
CLOSE 441 



:: DISPLAY AT(I,1>:"" :: NEXT I 
1 ) ■ ' l H 9.r d c ö p u u.i i r d au s g e d r u c k t ' ' 
VARIABLE 255 



PRINT 44 1 : TAB * ; G * ; COP V * ( X ) 
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H 3. r d c o » y ist- n u r m i t- »ine rr r P 



H -B.r d c o o'-i < G E R A E T » N A M E 



575 RETURN 

5 3 8 I> I S P L A V A T C 1 9 ., 1 ) :"Weitere U mw an d 1 u n g e n X J / N)" 

590 ACCEPT AT (. 19 ., 28 ) S I ZE C 1 ;• V A L I D A T E < " JN " ) BEER : SKP * 

690 IF SKP*«"J" THEN CALL HCHAR <8 > 1 , 32 , 544) : : 60 TG 190 

610 CALL CLEAR 

620 STOP 

1008 D I SPL A V A T < 17 , 1 > : " E i ne ftbspe i c her un g der 

i s k e 1 1 e n 1 au -F we r k mo ©glich ! " 

1019 CALL S OUN D < 258 , 1 1 8 , @ ) : : G T 359 

2 S C A L L H CH A R < 3 . 1 , 32 ,704 ;■ 

2085 T> I SPL A V A T >'■ 4 , 1. ':■ : " N ame der gespei cherten 

2010 ACCEPT AT<6, i> BEER: DATEI* 

2020 IF 3EG * < DA TE I * , 1 , 3 ) O " DSK " THEN 3000 

2825 0M ERROR 2810 

2038 OPEN # 1 : DA TE I * , I NPU T , SEQUEN T I AL . I N TERN AL , F I KEP 255 

2935 ON ERROR STOP 

2048 FOR 1=1 TO 24 

2859 I N P U T # 1 : C O P V Kl) 

206© NEMT I 

2965 CLOSE #1 

2070 GOSUE 508 

2838 P I S P L A V A T C. 8 , 1 > : ' ' N e i t er © Au s d r u c k © < J --N > ' ' 

2890 ACCEP T A T < 8 ., 25 ) VAL I P A TE ( " -TN " ) 3 I ZE < 1 > BEER : SKP * 

2188 IF SKPf=".J" THEN 2889 

2118 CALL CLEAR 

2128 STOP 

38 8 p I S P L A V AT < 3 ,1) = " N u r m i. t P i s k e 1 1 e mo eg 1 i c h ! " 

3 8 18 CA L L 3 U N P C 2 5 8 , 1 1 8 , 8 ) 

3828 GOTO 2010 

5080 X> 1 3 P L A V A T t; 4 , 1 '? ■ " 1 - U mw an dein einer H ar d c o p y 2 - A u s d r u c k e ine r H ar d c o p y " 

5018 ACCEPT A T < 6 , 1 > 3 I ZE C 1 ) VA L I P A TE -; " 12 " > EEEP : M 

5 2 8 N M G T 1 1 8,28 8 8 

5838 EHD 





'm0ß^ääis$s§0M0^M 










LASER 110-4 KByte RAM. Dieser ..persönliche Computer" eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Home-Computer. 
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Monster Attack 



Fremde Wesen greifen die Erde 
an. Ihre Aufgabe besteht darin, die 
angreifenden Monster vor Erreichen 
der Erde zu zerstören. Um diese 
schwierige Aufgabe zu bewältigen, be- 
sitzen Sie 3 Abwehrraketen mit unbe- 
grenzter Munition. Das Spiel unter- 
teilt sich in 6 Level, wobei bei jedem 
Level die Monstergeschwindigkeit so- 
wie die erreichbare Punktzahl an- 
steigt. Da ein Großteil des Programme s 
in Maschinensprache geschrieben ist, 
sollte bei der Eingabe der DATA- Zei- 
len sehr gewissenhaft vorgegangen 
werden. Ein Fehler kann zum System- 
Absturz führen. Das Spiel wird mit 
Joystick an Port 2 gespielt. 




± REM KKM - KKMKMI tX 'XMKKKK 

2 REM MONSTER ATTACK 

3 REM MKKKMKKKMmCMKKMK 

■4 = 

10 POKE 53281,6 

26 PRIMT"L2-Iifcia^"TAB<jL3>"*M O N S T E R 1 

38 PRINT"l!£ß"TftBCi8>"ft T T A C K" 

48 PRIHT'TaÜJ 

5Ö PRINT"iü CO BEI F.BRALL C84)" 

±O0 PR I HT" L«lJT'T»T»r= "TftB C 14) "B f TTF WARTEN" 

796 r 

8O0 REM *««* MUSIK-HÜTEN *««* 

810 = 

815 GOSUB ±1000 

S20 DATA 17,103,250,21,237,250,26,20,480,21,237,188,26,20,25 

8,29,69, 250 

830 DATA 26,28,258,8,8,258,21,237,258,26,28,258,29,69,1880,2 

6,20,258,0,0,258 

840 DATA -±,-±,8 

996 = 

997 REM »»» MASCHINENPR06RAMM **** 
938 -- 

399 FORI« 43152 TO -49787 = READ DA = PÖKEI , DA = NEXTI 

±800 DATA 128,32,26,194,169,18,141,28,3,169,192,141,21,3,88, 

76,4 

1001 DATA 193,32,186,193,169,224,141,2,220,173,0,220,133,247 
, 169, 255, 141 

1802 DATA 2,220,165,247,41,16,240,110,165,247,41,4,240,9,165 
,247,41 

±003 DATA 8,240,33,76,49,234,173,62,3,288,5, ±73,63,3,240,243 

, 56 

±804 DATA ±73,62, 3,233,2,141,62,3,173,63,3, 233,8, ±4±, 63, 3, 76 

1865 DATA 113,192,173,63,3,248,7,173,62,3,201,88,16,211,24,1 
73,62 - 

1O06 DATA 3, ±05,2, 141, 62, 3, ±73, 83, 3, ±05, 8, ±4± , 63, 3, 76, ±±9, ±9 
2 

±807 DATA 173,62,3,141,8,288,173,63,3,240,11,173,16,208,9,1, 
141 

1O08 DATA 16 , 288 , 76 , 54 , 192 , 173 , 16 , 288 , 41 , 254* 141 , 16, 288 , 76 , 5 
4,132, 165 

1089 DATA 2,240,3,76,54,192,173,62,3,141,6,208,173,63,3,240, 

11 

101© DATA 173,16, 288, 9, 8,141, ±6, 288, 76, ±89, ±92, ±73, ±6*288, 4± 

,247,141 

1811 DATA 16,288,169,2,141,1,212,169,0,141,4,212,169,15,141, 
24,212 
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1012 DATA 169,9,141,5,212,169,131,141,4,212,32,84,194,162,22 
8,142,7 

1613 DATA 288 , 32, 84^ 194, 169, 1, 133, 2, 76, 54, 192, 128, 165, 2, 298 , 
2, 88 

1614 DATA 96,286,7,288,32,218,193,32,84,194,173,7,208,240,2, 
88,96 

1015 DATA 169,0,133,2,96,173,21,3,281,234,208,1,96,169,0,141 
,30 

1016 DATA 208,141,38,288,32,98,194,165,162,41,1,240,43,162,4 
8, 173, 61 

1617 DATA 3,240,7,173,80,3,201,80,16,29,24,173,60,3,105,1,14 
1 

1018 DATA 60,3,173,61,3,185,8,141,61,3,32,113,193,32,154,193 
, 282 

1019 DATA 208,218,76,4,193,162,48,173,60,3,208,5,173,61,3,24 
0,201 

1820 DATA 56,173,60,3,233,1,141,60,3,173,61,3,233,8,141,61,3 

1821 DATA 32,113,193,32,154,193,202,208,228,76,69,193,120,17 
3, 60, 3, 141 

1022 DATA 2,208,173,61,3,248,14,173,16,208,9,2,141,16,208,16 
9,8 

1023 DATA 141,38,288,96,173,16,288,41,253,141,16,208,169,0,1 
41 „ 30,288 

1024 DATA 88 , 96 , ?2 , 138, 72 , 152, 72, 166, 258, 166, 158 , 165/162, 153 
,160,216,153 

1025 DATA 148,217,136,288,245,32,232,192,202,208,237,104,168 
, 104, 178, 104, 96 

1026 DATA 198,248,240,1,96,238,3,288,173,3,208,201,220,248,5 
,165,249 

1027 DATA 133,248,96,128,169,49,141,20,3,169,234,141,21,3,96 
,128,173 

1028 DATA 30,208,240,6,41,10,201,10,240,4,32,84,194,96,169,8 
, 141 

1029 DATA 4, 212 , 169, 6 , 141 , 1 , 212 , 169, 15, 141 , 24, 212 , 169, 18 , 141 
,5,212 

1838 DATA 169,8,141,6,212,169,131,141,4,212,169,0,141,30,208 
,163,3 

1831 DATA 141,249,7,169,2,141,33,208,76,206,193,169,0,141,16 
,208,141 

1832 DATA 63,3,133,2,169,60,141,3,208,165,162,141,68,3,169,0 
,141 

1833 DATA 61,3,141,26,288,32,113,193,169,98,141,62,3,141,0,2 
08,165 

1834 DATA 249,133,248,169,14,141,249,7,169,255,141,7,288,169 
,6,141,32 

1635 DATA 288, 163, 8,141, 26, 208, 169, 0,141, 25, 208,173,30,206, 9 
6, 169,250 

1036 DATA 141,8,212,169,8,141,11,212,169,8,141,12,212,169,4, 
141,13 

1037 DATA 212,169,19, 141, 11,212,96 

2O00 = 

2010 REIM SPRITE EINLESEN 

2020 = 

2030 FORI=832 TD 894:REftD DA-POKE I,DA-NEXTI 

204O DATA 0,20,0,0,20,0,0,20,0 

2044 DATA 32,20,8,8,20,32,8,28,32 

2846 DATA 2,185,128,0,185,0,0,105,0 

2048 DATA 8,185,8,0,105,0,0,65,8 

2858 DATA 8,65,8,1,176,64,1,178,64 

2852 DATA 6 , 170 , 144, 6, 170 , 144, 21 , 85 „ 84 

2854 DATA 0,85,6,1,85,64,1,85,64 

2060 - 
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2870 

2686 
2896 
2188 
2118 
2126 
2138 
2146 
2156 
2166 
2266 
2296 
2366 
2365 
2316 
2315 
2326 
2325 
2336 
2340 
2345 
2-460 
2-416 
2-426 
2-425 
2-430 
2-435 
2 440 

3060 

3601 

3062 

3010 

3612 

3615 
3020 
3625 
3630 

4000 

4061 
4002 
4605 
4610 
4012 
40 2 
4025 
4036 
404© 
4S5Ö 
4©55 
466 
4065 
4670 
40S6 
403© 

4160 

4110 
4115 
4126 
413Ö 

4140 



REM SPRITE 1 EINLESEN 

FORI=836 TD 358 = READ »ft:PöKE I,DAKEXTI 

DATA 63,6,252,8,195,0,0,68,0 

»ATA 2, 176,128,10,176,160,18,176,188 

DATA 42 , 170, 168, 41, 1 ©5, 164, 42, 170, 168 

DATA 42, 156, 168, 42, 176, 168, 42, 178, 168 

DATA 41, 170, 104, 42, 85, 168, 18,178,160 

DATA 16,170, 160,2,170,128, 2,0,128 

DATA 2,0,128,8,8,32,32,8,8 

REM SPRITE 3 EINLESEN 



EORI=704 T 
DATA 0,0,8 



786 = READ DA = POKE 
8,8,8,8,8,8 
DATA 8,8,8,8,8,6,8,8,0 
DATA 8,88,8,1,84,0,1,84,0 
DATA 1,84,8,1,84,8,8,88,0 
DATA 0,0,8,0,0,0,8,8,0 
DATA 0,0,0,0,6,0,8,8,8 
DATA 8,8,0,8,8,0,0,8,0 

REM ****** SPRITES VORBEREITEN 



1EXT 



14^ 



±5 - POKE 



143 t 11 



POKE 2640,13= POKE 2041, 14- POKE 2s 

POKE 53269,15-REM SPRITES ON 

POKE 53276, 15 = POKE 53285, 3 = POKE 53286, 6PÖKE 53287,2 



REM «*» STERNE ZEICHNEN «fns* 
PRIHT "kASRAKETEN - 3 PUNKTE = O 



LEI 



= 1" 



FÖRI=i TO 1Ö0 

W=INT(RMD(l>*86e)+1104 

POKE W, 46= HEXT 

FÖRI=55376 TO 56266:P6KE I , PEEK<162> = NEXT 



REM ****** HAUPTPRQGRi 



*&*«*■ 



GOSUB 11600 

AR = 3 = TA = 5 = TR=5 = R = 3 = L = l = ZA = 8 

POKE 53281,8 

POKE 258,TA:POKE 243, TR 

POKE 2046,13:P6KE 53251 , 6 = POKE 53277,0 

POKE 53286,L:SVS43152 

IF PEEK (2841)014 THEM 18888 

REM m m« MONSTER GELANDET hmm 

POKE 53277,2 

MP=PEEK<828)+(PEEK(829)*25G) 

RP=PEEK(838>+CPEEK€831>*256> 

S=1:IF MP>RP THEN S=~l 

FORI=MP TO RP STEP S 

HB=IHT<I/256> :LB=I~(HB*256) 

POKE 53258, LB 

IF HB=Ö THEN POKE 53264 ,< PEEK < 53264) AND 1> 

IF HB=1 THEN POKE 53264 ,< PEEK< 53264) OR 2> 

HEXT POKE 2046,3 
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4158 POKE 54273 l i8POKE 542?G,Ö:POKE 54296 ? i5POKE 54277,12 

POKE 54278,8 

41G6 POKE 54276,131 

41YO FORI=l TO 18:POKE 53281, I -FORQ=l TO 38 : NEKTQ = HEXT I 

4188 POKE 53261,0 

419Ö R = R-1 

5818 IF R<8 THEN 12888 

5828 GOTO 10838 

18888 - 

18081 REM *«» MONSTER GETROFFEN *««* 

18882 - 

18018 FORI=l TO 58 

18020 POKE 53281,1 

18830 HEXTI:POKE 53281,8 

18040 SC=SC+(L*1B8) :Zft=Zft+i 

10858 IF L = 6 THEN 18898 

1006O IF Zft=5 THEN ZA=8 : Tft=TA-l : L=L+1 : PRI HT"ÖMä NEXT LEUEL ! 

"-GOSUB 11888 
18078 IF TA<1 THEN TA=1:TR=TR~1 
18888 IF TA<T1 THEN TA = i 
18030 PRIHT"Ö 

18188 PRINT"t-H RAKETEN = "R" PUNKTE = "SC" LEUEL = "L 
10110 PRIHT 



10120 GOTO4820 



Musik-Untermalung 



11000 

11018 
11820 

11030 
11040 

=SI+6: 
1105O 

1106O 
11870 
11888 
±1838 
11100 

11118 

12808 

12810 

12028 

12038 

12848 

NICHT 

12850 

HT SCH 

12868 

ERDEN 

12078 

12188 

12118 

12128 

12138 

NREADV 



REM ****** MUSIK SPIELEN ****** 

REST8RE 

SI-54272 FL = SI = FH-SI +1 = TI_ = SI +2 = TH=SI +3 = W=SI +4 = n=*SI+5 = H 

L4=SI+24 

POKE L4,15:POKE TH,13:POKE TL , 15 = POKE A , 3*16+15 = POKE H 

READ X:READ V : READ D 
IF X = -i THEN RETURN 
POKE FH,X:POKE FL , V 
POKE M,85 
FOR T=i TO D:HEXT 
POKE M f GOTO 11868 

REM mm*c GAME OUER ****** 

PR I HT" HafläflM "TflBt 88>"ta «*» GAME OMER ****** " 

IF SC<1O00 THEHPRIHT"ÜJ"TAB<5>"VIEL SCHLECHTER GING ES 

!"':GOTO 12160 

IF SC<5888 THEMPRIHT"t3"TAB(2)"FUER DAS ERSTE SPIEL NIC 

LECHT « ,, :GOT812188 

IF SC<18888 THEHPRIHT ,, W ,, TABC5)"AUS D*IR KANN N8CH MAS M 

! ":GOTO 12188 

PRIMT"Ü"TAB(3)"6RATULIERE ! DAS WAR WIRKLICH GUT f " 

PRINT-fclüJ NOCH EIN SPIEL <J^N> " 

GET ES:IF E$=""THEH 12118 

IF E^"J""THEN RUN 

PRINT"^" :EHD 
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Block Painter 




mmodoreßß 



Eine der Stärken des Commodore 
64 besteht in der Möglichkeit ei- 
nen eigenen Zeichensatz zu ent- 
werfen. Dies ist für das Programmie- 
ren von Spielen sehr günstig und hat 
gegenüber der hochauflösenden Gra- 
fik den Vorteil, das wesentlich weni- 
ger Speicherplatz benötigt wird. Dies 
klingt alles sehr schön, ist jedoch in 
der Praxis nur den Profi-Programmie- 
rern möglich, da auch Maschinenrou- 
tinen erforderlich sind, um den Zei- 
chensatz zu ändern. 
Eine weitere Schwierigkeit besteht im 
Aufbau der Bildschirm-Grafik. Will 
man beispielsweise in einer „Print- 
Zeile" oft die Farbe wechseln oder ei- 
nige Reverse-Zeichen, benutzen, so 
wird die Zeile häufig durch Kontroll- 
zeichen unübersichtlich oder völlig 
unmöglich. Ganz zu schweigen davon, 
daß man wissen muß, welches Zeichen 
auf welcher Taste liegt. 
Diesen Nachteilen begegnet der hier 
vorgestellte Block-Painter. Die Bedie- 
nung des Programmes ist vorbildlich 
gelöst worden. Während der Erstel- 
lung wird kein einziges Mal die Tasta- 
tur benötigt, da alle Funktionen mit 
Joystick 2 gesteuert werden. 

Anwendung: 

Nach dem Starten des Programmes er- 
scheint etwa in der Mitte des Bild- 
schirmes ein blinkender Pfeil, umge- 
ben von zahlreichen Befehls Worten. 



Möchten Sie beispielsweise das Zei- 
chen „E" verändern, so steuern Sie 
Ihren Pfeil auf dieses Zeichen und 
drücken die Taste. Wie Sie erkennen 
werden, hängt nun das „E" an Ihrem 
Pfeil. Bringen Sie dieses zum Befehl 
„EDIT" und betätigen nochmals die 
Taste. Nun wird das Zeichen Ihrem 
Pfeil entnommen und in einem großen 
Fenster angezeigt. Sie können nun mit 
Hilfe Ihres Pfeiles (Joystick) beliebige 
Punkte setzen. Möchten Sie Punkte 
löschen, so fahren Sie mit Ihrem Pfeil 
auf das Befehlswort „CLEAR". Nun 
sind Sie im Clear-Modus und können 
beliebige Punkte löschen. Durch 
„SET" kommen Sie wieder in den ur- 
sprünglichen Modus zurück. Möchten 
Sie Ihr Zeichen invertieren, so benut- 
zen Sie den „RVS"-Befehl. Ist Ihr Zei- 
chen erstellt, gehen Sie auf den 
„COPY"- Befehl und anschließend auf 
das Zeichen, welches Sie ersetzen 
möchten. Sie haben nun Ihr eigenes 
Zeichen entworfen. Mit dem Befehl 
„TABLE" können Sie zwischen GRA- 
FIK und KLEINSCHRIFT umschalten. 
Der Befehl „ORIGINAL" sollte mit 
Vorsicht behandelt werden, da er den 
ursprünglichen Zeichensatz wieder 
aktiviert. 

Um nun ein Bild zu entwerfen, gehen 
Sie zuvor auf den Befehl „ERASE-PIC- 
TURE", um den Grafik-Speicher zu lö- 
schen. Holen Sie mit dem Pfeil ein 
beliebiges Zeichen aus dem Zeichen- 
satz und fahren Sie auf eine der Farben 



des Befehles „COLOR". Dieser wählt 
die Zeichenfarbe; der Befehl 
„GROUND" die Hintergrundfarbe. 
Wenn sie nun Ihren Pfeil über die un- 
tere oder obere Bildschirmgrenze be- 
wegen, so schaltet der Computer auf 
die Grafikseite um. Sie können Ihr 
Zeichen nun beliebig oft an jene belie- 
bige Stelle zeichnen. Möchten Sie eine 
andere Farbe oder ein anderes Zei- 
chen zeichnen, so überschreiten Sie 
wieder die Bildschirmgrenze. Beach- 
ten Sie, daß im Clear-Modus einzelne 
Zeichen gelöscht werden können. 
Durch den Befehl „COLOR-EDIT" 
können einzelne Zeichen in Ihrer Far- 
be geändert werden. 

Mit dem Befehl „PICTURE-SAVE" 
wird das Bild auf Disk abgespeichert. 
Wenn Sie die letzten 4 Zeichen („,8") 
in Zeile 1860 weglassen, so wird das 
Bild auf Cassette gespeichert und das 
Bild in beiden Fällen mit neuem Zei- 
chensatz und kleinem Maschinenpro- 
gramm, insgesamt ca. 6k, abgespei- 
chert. Geladen wird das Bild einfach 
mit LOAD „name",8,l. Durch den Be- 
fehl „SYS 34704" wird das Bild ge- 
zeichnet. Das „Bild" belegt die Spei- 
cherstellen 34707-40960. Nach dem 
„SYS-Aufruf" kann dieser Bereich 
wieder gelöscht werden. 

Hat man sich erst einmal an die etwas 
ungewohnte Steuerung gewöhnt, dann 
werden Sie bald die Möglichkeiten des 
Programmes zu schätzen wissen. 



10 REN #################### 

£0 REM # BLOCK - PRINTER # 

"3Ö REM #################### 

40 REM 

58 REM 

68 P0KE 55,3:P0KE56,48:RE|-'1 ** HIMEM ** 

70 POKE 53281, i : P0KE 53280,2: REM FARBE 

80 POKE 53288,6 

90 WE=6'- 111=255 :Mfl»0 

.106 REM ** ZEICHENSATZ VERSCHIEBEN ** 

110 REM ** NACH «300Q » 12288 m 

120 FÜR 1=5 1208 T0 51252 

1 30 READ DA : POKE I , DA : NEKT 1 ■ SV S 5 1 288 

140 DATA 120,165,1,72,41,251,133,1,169,208,133,3 

150 DATA 169,48,133,5,168,8,132,2,132,4,162,32 

1 68 DATA 1 17 , 2 , 1 45 , 4 , 200 , 288 , 249 , 236 , 3 , 230 , 5 , 2Ö2 

170 DATA 208,242, 104,133,1, 173, 24, 208.. 41, 241, 9, 12' 

180 DATA 141,24,208,88,96 

190 REM m SCREEN-SWITCH ** 

280 FORI =51253 T0 51489 ; READ DA : P0KEI , DA = NEKTI 

210 DATA 169,216, 162,219, 160,75,32,203,288, 169,8, 162 

220 DATA 288, 169,4, 162,7, 160,71,32,283,288, 169,0, 162 

238 DATA 1 22 , 280 , 1 69 .- 88 , 1 62 , 9 1 , 168 , 2 1 9 , 32 , 283 , 288 , 1 6 

248 DATA 32, 122,280,169,84, 162,87, 168,7,32,283,288,1* 

258 DATA 232, 133,95, 134,98, 132,88,76, 191, 163, 169,216 

260 DATA 283,208, 169,8, 162,232, 168,232,32, 122,288, W: 

ä'70 DATA 32, 203, 288, 169, 8, 162, 232, 168.. 232, 32, 122, 288 

288 DATA 219, 32 , 283 , 288 , 1 69 , 8 , 1 62 , 232 , 1 68 , 232 , 32 ,122 
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298 ÜRTA 168.7. 32,203. 208, 169,8, 162, 232,. ISO, 232, 76, 122,269, 133,96. 134 

388 DATA 3 1 , 1 32 , 89 , 96 

31© REM *# SPRITE - BEFEHLSZEIGER ## 

328 FORI =704 T0767 

338 READ HR = POKE I , DA : NEftT I 

348 P KE 28 48 , 1 1 : P K E 5 3 2 8 7 , 8 : P K E 5 3 2 6 9 , 1 - K ?- - 1 8 8 = V Z ™ 1 88 

358 B ATA 7 , i 92 , 8 .• 7 , 1 28 .■ 8 , 7 , 3. 28 , 8 

368 DATA 7 ,128,8,4,1 92 ,8.8, 96 , 8 

370 B AT Fl 8 , 48 , 8 , 8 , 24 , 8 , 8 , % 2 , .8 

388 BAT Fi 8,8, 8 ,8,8, 8 , 8 , , © 

398 BAT Fl , 6 ,8,8 , 8 , 8 ? 8 ,8,0 

488 BFA" Fl .. .0.8, 8 ,8,8 , 8 , 8 
418 BAT Fl 8.8. 8 , 8 , 8 , 8 , 8 , 8 . 8 . 8 
428 ÜOSÜB. 778 : REM #* 'MASKE #* 

"•UC klQQ 



Nbli I ,i. $* 



438 ÜG8UB 968 : REM ## 2E 

448 REN ** JüVSTICK EINGABE *# 

458 PQKE56322 , 224 : J-PEEK < 56328 ? 

468 I F < J AHB 1 > =9THEN VK= VK-3 

470 I F < JRND2 ) =0THENVK=V?<+3 

4 8 8 I F C J A HB 4 > » 8 "i" H E H Kft "■» K%- 3 

580 IF Kr0335 THEN KK=28 
518 IF >wi<2® THEH tftf-SSS 
528 IF V";>245 THEN 1488 
538 IF VK<30 THEN 1438 
548 HB=:<[NT'::Xr-;:/256) = LB=<XKANB£55> 

558 POKE 53269 , 8 : POKE 53248 . LB : POKE 53249 , YK ■ POKE 53264 , HB : POKE 
568 lFU'HHI)i6>~8 THEN 538 
578 GOTO 458 

588 REH #* BEFEHL FESTSTELLEN #* 
598 P0KE56322.255 

688 AB - 1 N T '■ < V K -"50 > / 8 > * 4 8 + 1 N T ( ( '"Ä X ••••• 2 8 > / 8 ') + 1 02 4 
618 IF ;k;';;<:188 AND XK>36 AHB V; : C>74 AHB VK<138 THEN 1218 
628 IF X"O20S AHB V^<288 THEN 1888 : REH ÜEB ERMAHNE 
638 IF HB>1235 AHB RIX 1243 THEN POKE 53288, 6 : WE-6 : GOT 0458 
6 4 @ I F A B > 1 1 5 5 AN B R I) < 1 1 63 T H E H P KE 5 3 2 8 8 , 8 : w E : ™ 1 : G T 4 5 8 
658 IF AIi>1315 AHB AIR 1323 THEN 1148 
668 IF AIVXL335 AHB FiB<1483 THEN 1238 
678 IF AHM 475 AND RIK1483 THEN 1318 
688 IF AD>1555 AHB RIX 1563 THEN 1398 

698 I F Fi I) > 1 5 4 4 AHB A B < 1 3 5 3 TH E N 3 V S 5 1 2 8 8 : "i" A ™» 8 : G T 4 5 8 
788 IF R;D>1871 AHB AD<:i.984 THEH 1428 
718 IF AD>1951 AHB ABO 984 THEN 1458 
728 I F . AB > i 6 24 A H B A B < 1 64 8 "!" H E N F R I ™" 2 1 5 4 "1 ' 225 8 5 : 
738 IF ADM784 AHB ABO 72© THEN 1770 
748 IF ABM784 AHB ABO. 799 THEN 1798 
758 G0T0458 : REN #* ZUR EINGABE #* 
768 REH ## BILBSCHIRrlHASKE *# 
778 PRINT'IiraiS >» BLOCK - PRINTER <« 
780 PRIHT 11 Hä " 
798 PRINT " Eii 9 Si £ £3 CLERK 1" 
888 PRINT " äl ü gl 55" 
818 PRINT " Ei B S! S 3ES SET ii s! 
828 PRINT " ä SS Sl §§ 15 
830 PRINT !i sä SS $ IE! 3i EI) IT i äI 
848 PRINT n 153 ü £3 B" 
858 PRINT u EU B SSi H! iäfö RVS 88i ,; 
868 PRINT ä! a S ä H" 
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870 RR INT "I SS II m CÜPV ,s 

8 8 PR I N "i" : P R I H T " SÜ R I ü I N R L ffi äE 3 1" R E L E £1 ; l 
&9® PRINT" £lü ERBSE P IC TÜRE 38" 
9ÖÖ PRINT" gfö CÜLOR ED IT HW" 

310 PRINT" StH PICTURE-SRVE KÄ" 

920 PRINT" S GSjROUHU« ssi ;iü üb. ii p @g ftl ;3 IIP;! 
936 PRINT" S SCQLGR ü 4 i'äi t £j g; jg j'j'jj ;;;;j g 
346 RETURN 

95© REH ## ZEICHENSfiTZ ANZEIGEN ** 
966 2=0 

9 ? 8 F R U " :: TO 1 6 : P = U # 4 

980 FÜR I ^ 1 1 28+P TU 1 1 42+F : POKE I .- Z : Z=Z+ 1 = POKE I +5 
990 RETURN 

1800 REN #* ZEICHEN UEE ER NEHMEN ** . 
1610 IF PEE!<( 1483) -31 THEN 1060 
1Ö20 PG»<S*PEEKCfiB) >+I2288+Tfi : ZE=PEEKXRIO 
1030 POKE 1719, 160 

1040 F R I :::: T Ü 7 - P U i< E 7 4 1 + 1 * 3 , P E E K '• P Ü + 1 > 
1050 NEftTI :G0T045Ö 
1060 REN ** ZEICHEN ÜEEERGEEEN ** 
1Ü70 POKE 1483,32 
1 080 PO- ( 8#PEEK < AD ) ') + 1 2288+Tfi 
1898 I=PEEK<flD>:lF TRO0THEN I : = :: I+256 
1180 IF I CM I THEN MI = I 
1110 IF Otlfl THEN Mfi=I 

1 i 20 FÜR I =0 TO 7 : POKE 74 1 + 1 $3 , @ : PQKEPO+ 1 , CD ( D : NEJ 
1130 GOTO 45Ö 

1140 REH m ZEICHEN VERGROESSERN *$ 
1150 P 1< E 1 4 8 3 , 3 2 : P R I N "i" ! '• Wm$M i II E : ; 

1160 F R I - "I " 7 : Z~ P E E K ( 7 4 i + ( I * 3 > ) : P K E 7 4 i + < I % 3 > 
1170 FÜRJ" :: 7' TG tf STEP-1 

1180 H ■"■ Z R N D 2 T J : I F fi T ' H E H P R I N T '' '' jäläi ! J ; : G T 1 2 
1190 PRINT "aal ".; 

i 20 N E X "1" : P R I N T : P R I N T : r Ü Vi : ' J : N E X i" : Ü "i" G 4 5 
121Ö REH *# PUNKT SETZEN/LOESCHEN *# ' 
1220 POKE fil), 160: POKE fiD+54272, UIE ■ ÜGTÜ450 
1230 REH #* ZEICHEN IN RVS NBHIJELH ** 
1240 FORI-0 TO 7 

1 2 5 F OR J - "I" 7 : C = P E E K < 5 5 4 J. 8 + J ••!•• ( I $ 4 > > R N I) 1 5 
1 26 I F C» 6 "i" H EN C : " 1 : "!" 1 2 8 
1270.0=6 

1 2 80 PO KE ■ 5 5 4 1 8 + J + ( I * 4 > , C 
1 290 POKE 1 1 46+ j + < I *40 ) , l 60 
1380 NE KT J.. I = GOTO 450 
1310 REH ** CO PIERE IN ZEICHENSFiTZ #fc 
1320 FORI=0 TO 7 
1330 CD< I>s=0:ij=8 

1340 FORJ=0 TU 7 : U~U X 

1 350 C ;:::: PE E K < 5 5 4 1 3 + J + < I $ 4 O > > H N j j i 5 

1 360 I F L>6 THEN Cü < I > »-CD t I > + < 2 TU > 

1 3 7 N E X T J ; P K E 7 4 1 + ■:; I ^ 3 > , C 3J >'■'. 1 > : N E K T I 

1 38 G F KE 1 4 8 3 .■ 3 1 : ? K E 1 4 8 3 + 5 4 2 7 2 , : G T 4 5 

1390 REH ** ZEICHEHSRTZ WECHSELN ** 

1 40 I F T H : ' ; O T H E N T h : - :: 2 4- 8 : P K I N T CH R i" < 1 4 ) ; : G Q T 4 5 8 

1 4 X y 1 1- i H ::::: 2 y 4 8 ! H b N T R :;::: • ! ::: ' R I l'-i T C H R '■%■ '•-. 1 4 2 !■■ ,■ : G i 4 5 =:::' 

1 42 O R E M * * H I N T E R G R U NE F R R E E # * 

1 430 EG-PEEK < R E+54272 ) : POKE 1 364 +54 27 2 , BG 

1 4 4 G P K t. 1 8 6 5 + 5 427 2 , E G : G T 4 3 
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1528 



1 56@ 



16ÖS 
1619 

1640 

1668 
1 67Ö 
1680 

1780 
17Ü3 
1 726 
1730 
1.740 
1758 
1766 
1770 
1788 

1 888 
1810 

1838 
184Ö 
1858 
1869 
1870 
1880 
1838 
1368 
1918 
1328 



rem m zeichemfhrbe m 

R E l'i 'i-- $ B I L JJ '■- E I- 1 T R * # 

X i : < " : " 1 3 Ö : V X - 6@ : B Ü " :;: BG BNB 1 5 : i'1 S-* P E E i< ( 5 3 2 8 7 ; ! : P Ü K E 5 3 £ 8 7 .. 8 

1 F B " ::: 8 R E Ü " 6 Ü K B 3 ~ i 1 R B G - ::: 3 Ü R E (3 ::::: 2 T HE M P C K E 5 3 2 3 7 .■ 1 

REH ## JGVS'T'ICK EINGRBE %■'& 

1 F < J n N S 2 ) ::::: 8 T HE H V /;! " V X + 3 
1 F < J Fi N JJ 4 > :: " 8 T H E H fi /;= " : X X ■■■- 3 
I F ( J fl N B 3 ) : ™ 8 T H E N ft ; : -;'i :;::: ft /; + 3 

I F ;K X < 2 8 7 H E N Xft ::::: 3 3 5 

IF V;^;>258 "l'HEN 1660 

IF V;vC38 l'HEN 1668 

HB" I NT < YX/ZZfb ) '■ LB" '• ;K^hhUJ25o > 

I F «:; J'HMJJ 1 6 ) - 8 THEN 1 6 30 

GOTO 1538 

REH #$ ZURÜECK INS MENGE $# 

X%"~ 1 98 : V/i-Sl : PGKE532S 1 * 1 : SV3 5 i 33 1 : PÜKE53287 .- M3 

GOT 04 58 

REM $& ZEICHEN SET ZEH $# 

R B ::;:: I N T ( C V ; : ^ - 5 ? / 8 ; * 4 + 1 N T i. ( X X ■■- 2 Ö > / 8 > + 1 8 2 4 
1 F c P E E K < 5 328 8 > H N D 1 3 > :::: 8 T H E H Z D " : 8 2 ; G "I" 1 7 4 8 

POKE RÜ, ZD 

GOTO 1538 

REM ## COL..GR ED "IT ** 

Z E "2 5 6 : F R I " T 7 ; P Ü K E 7 4 1 + C I * 3 > .■ 8 : N E X T I ; P K E i 7 1 3 .-31 : G T 4 5 6 

REM ## BiiTfl-GEHERRTGR ** 

PRINT""3HÄPM AUGENBLICK BITTE ! " 

FORI- 34784 TG 34883 : RERB DR : POKEI .. Bh : NEKTI 

FÜR I =s£ i 584 T023552 : POKE I + 1 33 1 2 .■ PEEK ( I > : HEX T I 

FOR I :: = : 1 2288 Tu 1 6383 : POKE I +24576 •■ PEEK <.!'■>'■ NEHT X 

P R I N "!" ,: TMi MF I LEN R ME ' ' ; : I NP U 1" ! ;:: " % 

RR I NT ,: ÜT'OKE 43 1 1 44 : PÜKE44 , 1 35 : PGKE45 .■ : P0KE46 .■ 1 68 " 

RR I NT ,l Ä3RVE äi CHR$ < 34 > " @ : " F#GHR$ <. 34 > i; , 8 i5 

P0KE631 .. 19 : FORI™ 632"!" 0648 : POKEI .• 13 : HEXT : POKE 133.- 3 

BPTR 32 .. 1 9 1 .. 1 63 , 1 63 .- 8 .. i 33 ,• 35 .- 1 63 ,- 1 44 .. 1 33 .■ 36 .- 1 69 .- 8 .•■ 1 33 .- 38 .. 1 63 .. 1 68 
BR TR 1 33 .< 9 1 ; 1 69 , 8 .- 1 33 .. 88 .. 1 63 .- 240 .■ 1 33 .• 89 .= 32 , 1 3 1 , 1 63 * 1 63 .• 1 32 f 1 4 1 .■ 1 36 
BRTR 2 .■ 1 69 .. 3 .= 141 .. 24 .. 288 .. 1 73 .• 8 .• 22 1 .■ 4 1 .. 252 .• 1 4 1 .. 8 .. 22 1 .. 36 



A lifetime warranty. And manufac- 
turing Standards that make it almost 
unnecessary. 

Cunsider this: Evcry time you take 
your disk for a little spin, you expose 
i t to drive heat that can sidetrack data. 
Worse, take it to the point of no return. 
Maxell 's unique jacket construction 
defics heat of 140°E ,4nd keeps your 
informalion on track. 

And Maxell runs clean. A unique 
process impregnates lubricants 
throughout the oxide layer. Extending 
media and head life. How good is Gold? 



Maxell 's the disk that many drive manu- 
facturers trust to put new equipment 
through its paces. It's that bug-free. 
So you can drive a bargain. But in 
accelerated tests, Maxell floppys lead 
the industry in error-free Performance 
and durability. Proving that if you can't 
stand the heat vou don't stand a chance. 
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Das hier vorgestellte Maschinen- 
programm erlaubt den Anschluß 
eines MX80 oder MX80 Typ 3 an 
den User-Port des Commodore 64. 
Obwohl kein Interface benötigt 
wird, gestattet das Programm den 
Ausdruck aller Commodore Zei- 
chen inclusive Grafik. Sicher wird 
sich so mancher überlegen wie es mög- 
lich ist, Commodore Zeichen auf ei- 
nem Epson- Drucker auszugeben, da 
diese bekanntlich keine Grafik-Zei- 
chen erlauben. Die Erklärung ist sehr 
einfach: Die Epson Drucker MX80 
Typ 3 und MX82 besitzen die Mög- 
lichkeit, 8 vertikal angeordnete Na- 
deln einzeln anzusteuern. Das hier 
vorgestellte Programm nutzt diese 
Möglichkeit aus, indem es mit Hilfe 
eines Zeichensatzes das auszugeben- 
de Zeichen in 8 mal 8 Nadel-Stellun- 
gen an den Drucker sendet. Um das 
Eingeben eines 4 kByte Zeichensatzes 
zu ersparen, benutzt das Programm 
den Zeichensatz des Bildschirmspei- 
chers. Da mit einer 8x8 Matrix gear- 



beitet wird, beträgt die normale Zei- 
chenzahl 60 Zeichen pro -Zeile. Dies 
reicht für die meisten Anwendungen 
völlig aus. Werden jedoch einmal 
mehr Zeichen benötigt, so kann mit 
der Sekundäradresse 1 auf 120 Zei- 
chen pro Zeile umgeschaltet werden. 
Das Programm belegt nur 604 Bytes 
und liegt im Bereich $C0O0 - $C25B 
und ist somit nicht durch Basic zu 
überschreiben. Nach dem Laden wird 
es mit SYS491 52 initialisiert und kann 
danach wie gewohnt mit OPEN ange- 
steuert werden. 

Beispiele: 

OPEN 1.4,0 : CMD1 : LIST : REM 
Basic-Listing in, Normalschrift ausge- 
ben 

OPEN 1.4,1 : CMD1 : LIST : REM 
Basic-Listing in Schmalschrift ausge- 
ben 

OPEN 1,4,2 : CMD1 : LIST : REM 
Basic-Listing in Fettschrift (60Z) aus- 
geben 

Indem man 3 Files mit verschiedenen 
Sekundäradressen öffnet, können 



auch mehrere Schriftarten gleichzeitig 
benutzt werden. In einer Zeile ist je- 
doch immer nur 1 Schriftart möglich. 
Zum Anschluß des Druckers an den 
User-Port benötigt man ein 11- oder 
mehrpoliges Kabel sowie 2 geeignete 
Stecker. Die Kontaktbelegung lautet 
wie folgt: 



USER PORT 


EPSON DRUCKER 


A 


GND 


16 


B 


Flag-Busy 


11 


C 


Data 1 


2 


D 


Data 2 


3 


E 


Data 3 


4 


F 


Data 4 


5 


H 


Data 5 


6 


J 


Data 6 


7 


K 


Data 7 


8 


L 


Data 8 


9 


M 


PA2-Strobe 


1 



Hinweis: 

Für den fortgeschrittenen C-64-Fan ist 
das Maschinenprogramm als Assem- 
bler-Listing abgedruckt! 



18 P*IÄT"Uääa»IESES LISTING HÜRDE AUF" 

28 PRWT"EIBEH Iß 82 AUSGEDRUCKT !" 

38 PtlirEH IHTERFACE MIRD NICHT BEÄOETIGT" 



48 PRINT M 6RftFIK: (W-J !ftrLH^-J|WLE3i*4-XIA U.S.H.» 
58 PRIÜT" r~ 



68 PRIÜT" L 



IT 
JL 



T 

r 



JLO PR 1 HT"U;MH.'»»|1> IESES LISTING MURDE AUF" 

2© PRIMT'TIHEM HX 82 AUSGEDRUCKT ! " 

30 PRIHT-EIH INTERFACE MIRD NICHT BENOETIGT" 

-»0 PRIHT-GRAFIK: •©--! l«rU-4¥-w| | «LC3 l*4-XI/\ 

50 PRIMT" | 1 | — 1« 

6© PRIMT" | | |_ I» 



U.S.M 



JLÖ 

26 
3Ö 

50 



FR IHT "Ujim»mM}f> IESES LISTIMG HUROE AUF" 
PRIHT""EIHEM MX 82 AUSGEDRUCKT ■" 
PRIHT-EIM INTERFACE WIRD NICHT BENOETIGT" 
PRIMT'"GRftFIK: M— _| J^rU-^f^l I^LUKiH 

PRIMT" | J g 1 • I " 

PK INT" I 8 I i " 
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Basic-Loader 

10 FORI™ 49152 TO 49757 = READ HR : PQKE:E,HA ; NEXTI 

bö006 DATA 1 69 , SS t X 60 , 1 92 .. 1 4 1 .. 26 , 3 .. 1 40 , 27 , 3 , 1 63 , 1 39 , 1 68 . 1 92 ■ 1 4 1 . 23 
6Ö001 DATA 140,29,3/ 169, 163, 168, 192, 141,38,3, 140, 31,3. 169, lfiß. 160. 
6W8Ö2 DHIfl 141,32,3, 148,33,3, 169,289, 168, 192, 141, 3«. 3. 148- 3*3 >:-:. %f,q 
68083 DATA 255, 141 , 3, 221 , 173, 2, 221 , 9, 4, 141 , 2, 221 , 96, 141,1, 221 J 169" 
68U04 DATA 16, 44, 13, 221 , 240, 251 , 173, 8, 221 ,9, 4, 141 , 8, 221 .• 41 , 251 , 141 
60U05 DATA 8, 221 , 96^ 166, 184, 248, 5, 32, 15, 243, 298, 3, 76, 254, 246, 166, 152 
bfcjywb Dhl7A 2^4, 18, 144,3,76,251,246,238, 152, 165, 134, 157,39,2, 165, 185,9 
b09ü ? DAT Fl 96 , 1 57 , 1 89 , 2 , X 65 , 1 86 , 157 , 99 , 2 , 28 1 , 4 , 288 , 2 , 24" ^6 . 2fi 1 . m" 
69808 DATA 76, 1 19, 243, 32, 20, 243, 248, 2, 24, 96, 32, 31 , 243, 138, 72, 165 ■ lSfi 
68809 DATA 281 , 4, 248, 3, 76, 157, 242, 76, 241 , 242, 32, 15, 243, 248, 3, 76, 1 
688 1 ü DA T fl 247 , 32 ,31, 243 , 1 65 ,186, 28 1,4, 283 , 3 , 76 , j 8 ■ ?47 . 76 < 25 . 242 - 3 ■- 

688 11 DATA i 5 , 243 , 24=3 , 3 , 76 , 1 , 247 , 32 , 3 1 , 243 , 1 65 , 1 86 , 28 X , 4 , 208 , 3 * 76 """ 

688 1 2 Hh ffi i 1 r" .. 242 , 76 , 9 1 , 242 , 72 , 1 65 , 1 54 , 28 1 , 4 , 248 , 3 , 76 , 285 , 24 1,165=185 

68813 DATA 41 , 1 5 , 28 1 , 8, 288 , 23 , 1 69 , 68 ,141, 67 , 1 93 , 1 69 , 75 , 1 4 1 , 68 , 193 , 1 69 
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Commodoreß4 



Ö .- 1 4 1 .. 69 ; 1 93 .- 1 69 , 8 , 1 4 1 .. 78 , 1 93 , 76 , 1 82 , 1 93 .• 20 1 .• 1 , 208 .■ 23 , 1 69 
120.. 141,67; 193.. 169.' 76, 141,68, 193, 169,0, 141.-69, 193, 169,8, 141 
70 , 1 93 , 76 , 1 82 , 1 93 , 28 1 ... 2 , 208 , 23 , 1 69 , 69 ,141, 6? , 1 93 , 1 63; 76 .■ 1 4 1 
68 , 1 93 , 1 69 , 1,141, 69 , 1 93 , 1 69 , 16,141 , 70 , i 93 .- 76 , 1 32 , i 93 , 76 , 227 

1 92 ,0,8,0,0,0 , Ö , ,0,0,0,0 ; , ,0 ,8,0 

0,0,0, © , 14 1 , 65 , 1 93 , 72 , 1 52 , 72 , 138 , 72 , i 74 , 65 , 193 , 1 69 , 
1 33 , 247 , 1 73 , 24 , 208 ,41,2, 24 , 1 8 , 1 , 9 , 208 .. 1 33 , 248 , 224 , 8 , 248 
1 6 , 24 .i 1 65 , 247 , 1 Ö5 , 8 , 1 33 , 247 , 1 65 , 248 ,105,0,1 33 , 248 , 282 , 208 , 240 
165, 1, 141,59, 193, 169,49, 120, 133, 1, 168,8, 162,7, 177,247, 106 
62 , 5 1 , 1 93 , 282 ,16, 249 , 288 ,192,8, 288 , 248 , 1 73 , 59 , 1 93 , 1 33 , 1 , 88 
1 62 ,8,1 89 , 5 1 , 1 93 , ?'d , 32 , 64 , 1 92 , 1 84 , 1 72 , 69 , 1 93 , 248 , 3 , 32 , 64 
192,232,224,8,288,235; 184; 178, 184, 168, 184,24,96, 184, 141,65, 19: 
72, 152,72, 138,72, 173,65, 193,281, 13,288,84; 169,8, 141,63, 193 _ 
141,64, 193, 174,62, 193,248,58,24, 173,63, 193, 189,78, 193, 141,63 
193, 173,64, 193, 185,8, 141,64 • 193,282,288,235, 169,27,32.64, 192 
1 73 , 68 , 1 93 , 32 , 64 ,192,1 73 , 63,1 93 , 32 , 64 , 1 92 , 1 73 , 64 , 1 93 , 32 , 64 
192; 162,8; 189; 68; 3; 32, 71, 193,232,236,62, 193,288,244, 169^13 
32,64, 192, 169,8, 141,62, 193,76, 175, 193, 173,8,4; 141,66, 193 
165,214, 141,68, 193, 165,211, 141,61, 193,32, 182,229,173,65, 193,3: 



174,68, 193, 172, bl, 193,24,32; 18,229, 174,62, 193,232, 142,62, 193 
236 , 67 ,193, 288 , 3 , 76 , 1 98 , 1 93 , 76 , 1 75 , 1 93 



RERDV« 



***** C 64 EPSON-PRINTER ***** 
C64 USER-PORT Tu PRINTER MX 82 



120 



C080 



IN IT MIT 8V8 12 * 4096 
SEKUNBflERflDRESSE 8 = 68 ZEICHEN 
SEKUNBRERRBRESSE 1 =128 ZEICHEN 
SEKUNBRERRBRESSE 2 * 68 ZEICHEN FETTSCHRIFT 
„OFT PI, 00 



148 


C009 


TABLE 


53248 


158 


C808 


PUFFER »■ 


y28 


170 


C0S0 


ÜPENV 


$83 1R 


188 


C090 


CLOSEV 


$83 IC 


198 


C000 


CHKIHV ~ 


$83 IE 


208 


C000 


CHKOUTV =» 


$8328 


210 


C0Ö0 


ESOUTV 


#8326 


228 


C808 


XREG ~ 


$9? 


238 


CÖ00 


TRBfl 
;CIR 2 


■$F? 


258 


C000 


FÜRTH *= 


56576 


268 


C000 


PORTB 


56577 


279 


C000 


BRRR =s 


5657ö 


288 


C000 


DRRB 


56579 


290 


C000 


ICR 


56589 


380 


C888 


LF 


*B8 


318 


C000 


SR s 


$B9 


320 


C000 


Ffl 


*BR 


330 


C0Ö0 


NMBFILES = 


$98 


340 


C000 


LFTRB 


$259 


358 


CSS 8 


FRTRB ~" 


$263 


360 


C000 


SRTRB " 


*26D 


378 


C000 


SRCHFIU = 


$F38F 



;ZEICHENSRTZ RB $D888 

.: KRSSETTENPUFFER RLS DflTENPUFFER 

: OPEN-VECTOR 
J CLÜSE-VECTÜR 



.: ZEICHEHRUSG8BE-VECTÜR 
; SPEICHER FUER REGISTER 
j POINTER 

;PORT fi 

jpüRT B <U3ER PORT? 
jDflTENRICHTUNG R 

; " USER PORT 

.: INTERRUPT CÜNTROL REG. 

;FILEHUMMER 

.: SEKUNBRERRBRESSE 

;GERRETENR. 

;RHZRHL DER OFFENEN FILE' 



; SUCHT FI LEHR . 
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380 
399 

400 

418 
420 
438 

44ß 

468 : 
470 
430 : 
490 : 
506 ] 
510: 
520 : 
530 : 
54U ; 
550 : 

570 : 

590 : 
600 : 

6 i 9 : 

620 : 

630 : 
640 : 
650 = 



UÖÖW 










C0Ö8 






INI"! 


#= 


C080 


R9 


58 




LDH 


C002 


Hü 


C6 




LliV 


CÖ04 


8D 


IFi 


83 


STR 


CÖ 07 


SC 


1B 


03 


3 TV 


C00Fi 


r.y 


SB 




LDR 


CSÖU 


H0 


C0 




LUV 


CÖ0E 


SD 


IC 


03 


3 TR 


CSU 


SC 


1B 


03 


STV 


CS 14 


R9 


fi;' :: ! 




LDH 


CO 16 


R8 


C9 




LBV 


ca 18 


SD 


iE 


03 


STR 


Co iE 


'«.■•-/ 


1F 


Ö3 


STV 


CS iE 


ny 


üH 




LDR 


Co 20 


M0 


CO 




LDV 


Utfrflü 


yjj 


2ü 


03 


STR 


W ü :£ O 


C' '...' 


™. .~ 


03 


3 i ¥ 


cw28 


A9 


Di 




LDH 


U02A 


R0 


CQ 




LDV 


uaüu 


W.Ü 


w'*« 1 


03 


STR 


C82F 


SC 


cC r" 


03 


STV 


C032 


R9 


Fh 




LDR 


CU34 


yfl 


03 


DU 


STR 


UU37 


r:u 


02 


DD 


LDR 


CU3A 


09 


04 




ORR 


C03C 


8D 


02 


DD 


STR 


C03F 


60 






RT'S 



*C000 ' ; PRGGRRMMRNFRNG 
*KÜPEN ; ÜPEN-VECTOR UMSTELLEN 
#>0PEN 

OPENV 
ÜPENV+1 

#<CLÜSE ; CLGSE VECTOR UI1STELLEN 

tt>CLÜSE 

CLÜSEV 

CLGSE V+l 

# < C I -i K I N ; E I H G R B E G E R R E '!" S E "i" 2 E N 

#>CHKIN 

CHKINV 

CHK I N v+ i 

tKCHKGUT ; AUSGABEGERRET SETZEN 

#>CHKÜUT' 

CHKGUTV 

CHKÜUTV+I 

# < B S ü T ; Z E I C H E N -H Li 3 Ü R E E U HS T ELLE! 

#>BSOUT 

ESÜUTV 

BSüUTV+1 

#$FF 

DRRB ;POR"i" B RUF AUSGABE 
DRRR 

DRRR j PR2 RUF RUSGREE 



720 ; 


C840 


8D 


01 


DD 


730 : 


C043 


R9 


10 




740 : 


C045 


2C 


0D 


DD 


758 : 


C048 


F0 


FE 




760 - 


C04R 


m 


00 


DD 


770 : 


C04D 


09 


94 




'730 : 


C04F 


SD 


00 


DD 


?9d : 


CS52 


29 


FB 




890 : 


C954 


SD 


00 


DD 


810 : 


C057 


60 






830 : 


C058 


Hb 


BS 




840 = 


C05R 


FS 


05 




850 - 


C05C 


20 


0F 


F3 


860 : 


C05F 


:D0 


03 




870 ; 


C061 


4C 


FE 


F6 


330 • 


CU64 


h6 


98 




S98 : 


C066 


E3 


ÖR 




900 : 


CSS 3 


90 


03 




910 : 


Ü06R 


4C 


FB 


F6 


920 : 


C06D 


E6 


'"■< r"i 




930 : 


C06F 


fl5 


H'ö 




940 : 


C071 


9D 


59 


02 


950 : 


C074 


R5 


B9 





R! 



RUSGREE M I "i" HRND3HRKE 
DATEN RUF PORT E 
STRÜBE RUF PR2 
BÜSV UEBER FLOG NRCH l'CR 



.iSGRBE STR PORTE ; DATEN AUSGEBEN 

LDR #K10S00 ;MRSKE EUER FLRG BIT 

l'ESTBUSV BIT ICR 

BEQ TESTBUSV 

LDH PUR: TR 

ORR #;:•;! 100 ; STRÜBE SETZEN 

STR PQRTR 

AN D #K 1 1 1 11 1 1 ; STROBE LGESCHEN 

STR PORTA 

RT'S 



OPEN 



:iPEHERR 



LDX LF ; LOGISCHE FILENUHMER 

BEQ ÜPENERR 

JSR SRCHFIL ; SUCHT FILE NU UM ER 

BNE *+5 

J HP $ F 6 F E ; F I L E P E H E R R R 

LDX NI1BFILES ;RHZRHL DER OFFENEN FILE': 

CP> : ; #10 

ECC *+5 

J Ü R $ F 6 F B ; "i ' Ü 11 Fl N V F I L E S E R R CR 

INC HhBFIL.ES 

LDR LF 

31" Fi LFTRB.-Ö 

LDR SR 
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C87S 8S 1 69 



378 : 


C073 


9D 


SB 


82 


988- 


C87B 


RS 


BFl 




990 : 


C87B 


91! 


fc3 


82 


1000 : 


C080 


C9 


04 




1010 


C882 


B9 


82 




1028 


C834 


18 






1938 


C085 


68 






1040 


C886 


C9 


08 




1050 


C888 


4C 


i f 


F3 


1060 


C88B 








1070 


C08E 


29 


14 


F3 


1038 


C88E 


F8 


82 




1090 


C89Ö 


18 






1100 


C891 


60 






1110 


C892 


28 


1F. 


F3 


1120 


C895 


yfi 






1130 


CO 3 6 


48 






1140 


C897 


fl5 


BR 




1150 


C899 


CS 


84 




1160 


C89B 


Fß 


03 




1170 


C83B 


4C 


9B 


F2 


1130 


C8R0 


4C 


Fl 


F2 


1190 


C8A3 


28 


8F 


F3 


1200 


C0B6 


F0 


83 




1210 


C0R8 


4C 


81 


r f' 


1220 


C8RB 


20 


1F 


F3 


1230 


CÖfiE 


Mvj 


BR 




1240 


C0B0 




84 




1250 


C8B2 


BÖ 


83 




1260 


C8B4 


4C 


8H 


r <" 


1270 


C8B7 


4C 


19 


F2 


1 280 


C8BR 


2Ö 


8F 


F3 


12:90 


C8BD 


F0 


83 




1308 


CSBF 


4C 


81 


P7 


1310 


C8C2 


28 


1F 


F3 


X %*'i-£.w 


C8C5 


Fi 5 


Bfl 




1 330 


CSC 7 


C9 


84 




1340 


C8C9 


BÖ 


0!-i 




1350 


C0CB 


4C 


i ,: '5 


F2 


1368 


C8CE 


4C 


5B 


F2 


1 370 


CSB1 


48 






1388 


C0B2 


Fi 5 


9 Fl 




1398 


C0B4 


C9 


84 




1488 


C8BS 


FS 


83 




1418 


C0B8 


4C 


CB 


Fl 


1420 


C8BB 


R5 


B9 




1 438 


C8BB 


29 


8F 




1448 


C8DF 


C9 


88 




1458 


C0E1 


B8 


•i "? 
.1 > 




■' , J - ' : -' i -■; 


C8E3 


R9 


3C 




1478 


C8E5 


8B 


43 


Cl 


1488 


C8E8 


£!}0 


4B 




1498 


C8EA 


8B 


44 


Cl 


1588 


C8EB 


R9 


88 




1510 


C0EF 


8B 


45 


Cl 


1528 


CSF 2 


Fi 9 


83 




1530 


C0F4 


8B 


46 


Cl 



xust 



CHKIH 



BSÜUT 



rhu 



ORB 

3 TR 
LBR 
ST Fi 
CUP 
BNE 
CLC 
RTS 
CriP 
JÜP 



BEQ 

CLC 
RTS 
•JSR 

txa 

FHfl 
LBR 
CliP 

£' C •*■; 

JMP 

JiiP 
JSR 
BEQ 
JMF 
JSR 
LBR 
CMP 
BNE 
.JÜP 
JÜP 



#$6Ö 
SRTRB 

F'Fi'TRB 

#4- 

$+4 



#0 

$F314 

*4-4 



#5~3Ih 



j FERTIG 

; WEITER WIE GEHRBT 

; SU C NT L u G 1 3 C HE FI L ENU ii HER 



j FERT I G 

; 8 E T Z T F I LE P Fi R Fi ii E I ER 



FR 
#4 

$F23B ; NORMAL NETTER 

$F2F1 ; EINTRAG IN TABELLE LOESCHEN 

8 R C H F 1 L < S ÜC H T F I LEN ü MM ER 

$F781 ;FILE NOT QPEN ERROR 

$ F 3 1 F • S E T Z T F I LE F R RA M E JE R 

FR 

#4 

*+5 

$F78R ;NQT INPIj'i" FILE ERROR 

S R C H F I L .: S U C HT F I L EHUli M ER 



BEÖ 


#+s 




JMP 


$FPÖ1 


.i F I L E N U '1 U PL N b K K U R 


JSR 


SF31F 


. S£ - r ^ T p j l£phE AME Tfc.K 


LBR 


l~ ü 




CMP 


#4 




BNE 


ifc-l"5 




JMP 


$F27o 




..JHP 


$F25B 




PHP 






LBR 


$9A 


j OÜTPUTGfcRAET 


CMP 


#4 




BEQ 


*+5 




JHP 


$F1CB 




1..BR 


SR 


; S E K Ü N D R E R li B K E S 3 E 


AND 


##0000 


1111 


CMP 


#8 




BNE 


SEK! 




LBR 


#68 


;üOBE 8 68 ZEILHLN 


S 1 H 


MH#<£ 


> 


LBR 


#"K" 


; MODUS 488 SPROSSEN 


STA 


üuBE 




LBR 


#8 


; NICHT BREIT 


ö 1 H 


BIG 




LBR 


#3 


; S P R US SEH P RU <Ck 1 U HE N 


STA 







Cpmputronic 



33 



1540 : 


CSF? 4C 


£6 


Gl 




JMP OUT 


1550 = 


C0FR C3 


01 




SEK! 


GilP #1 


1560: 


C0FC ;dö 


17 






BNE SEK2 


1570: 


C0FE A3 


78 






LDH #120 


1580: 


C108 BD 


43 


Gl 




STA rlRXZ 


1590: 


C103 A3 


4G 






LDfl #"L" 


1 600 : 


Gl SS 8D 


44 


Cl 




• STR MODE 


1610: 


Gl 98 A3 


00 






LDR #8 


1620: 


C10R 8D 


45 


Gl 




STR BIG 


1630: 


C10II A3 


08 






LDR #8 


1640: 


C1ÖF SD 


46 


Cl 




STR SPZ 


1650: 


Gl 12 4C 


BS 


Ci 




JT1P OUT 


1660: 


CU5 C9 


02 




SEK2 


GMP #2 


1670: 


Gl 17 H0 


17 






BNE SEK 3 


1 680 : 


Gl 19 R3 


3C 






LDR #60 


1 630 : 


CHE SD 


43 


Gl 




STR mxz 


1700 = 


CHE R3 


4C 






LDR #"L n 


1710: 


Gl 20 8D 


44 


Cl 




STR MODE 


1720: 


C123 R3 


01 






LDR #1 


1730: 


Gl 25 8D 


45 


Cl 




STR BIG " 


1740: 


C128 A3 


lü 






LDH #16 


1750: 


C12A 8B 


46 


Cl 




STR SPZ 


1760: 


C12D 4C 


B6 


Cl 




JHP OUT 


1770 = 


Gl 38 4C 


E3 


CO 


8EK3 


JMP STAND 


1730: 


Gl 33 09 


00 


00 


MATR 


«BVTE0,0,0 


1800: 


C13B 08 






KONF 


. BVTEQ 


1810: 


G13G 00 


00 




CURS 


„BVTE0,0 


1820: 


C13E 00 






ZZAHL 


. BVTE8 


1830 : 


C13F 00 


00 




<£SPAL 


.BVTE©,.© 


1840: 


C141 00 






TEMP 


-BVTE© 


1850: 


Gl 42 00 






SCHIRM 


. BVTE0 


1860 = 


Gl 43 00 






MflXZ 


- BVTE0 


1870- 


Gl 44 00 






MODE 


. BVTE0 


1880: 


C145 00 






BIG 


■BYTE© 


1890: 


Gl 46 00 






SPZ 


. BVTE8 



lüBE i 120 ZEICHEN 
10DUS 360 SPROSSEN 



STANDRRTSCHR1FT 



.: MflTR I X-2W I SCHENSPE I CHE! 



.: CURSOR K.-V 
; ANZAHL DER 
.; ANZAHL DER 



MERKEN 

ZEICHEN 

SPROSSEN 



; ZWISCHENSPEICHER 
; ZEICHEN PRO ZEILE 
;MOBE 480/96Ö SPROSSEN 
;9«N0RMAL l^BREIT 
; SPROSSEN PRO ZEICHEN 



.: BILDSCHIRMCODE IN R WANDELN 
;UND ZUM DRUCKER SCHICKEN 



1340: 


C147 


SB 


41 


Cl CODE 


STR 


TEMP ; ZEICHEN IN X 


1350: 


C14R 


48 






PHA 




i960: 


C14B 


38 






TYA 




1970: 


C1.4C 


48 






PHR 




1380: 


C14D 


SA 






TXR 




139ß: 


CHE 


48 






PHR 




2000 : 


C14F 


RE 


41 


Cl 


LDH 


TEMP 


2010: 


C152 


R9 


00 




LDR 


ttCf'ABLE 


20Ü0 : 


C154 




F7 




STA 


TflBfl 


2030 : 


Gl 56 


RH 


18 


D6 


LDH 


53248*24 


«£040 : 


C153 


29 


02 




AND 


#2 ; MODUS GRAFIK ODER KLEI HS 


2050 : 


C15B 


18 






CLC 




2060 : 


C15C 


0A 






ASL 




2Ö7Ö : 


C15D 


OA 






RSL 




2080 : 


C15E 


09 


DU 




ORR 


#>TABLE 


üüyö : 


Gl 60 


85 


F8 




STR 


TABA+1 


2100: 


C162 


E0 


00 




CPX 


#0 .; ADRESSE BERECHNEN 


2110: 


Gl 64 


F0 


10 




BEQ 


NMRL 


34 
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2128 


C166 


18 






MAL 


GLC 






213Ö 


Gl 67 


R5 


F7 






LDH 


TRBR 




2148 


Gl 63 


63 


88 






RÜG 


#8 




2130 


C16B 


85 


F7 






STR 


TRBR 




£169 


C16D 


R5 


F8 






LDR 


TRBR+1 




2178 


C16F 


63 


80 






RÜG 


#0 




2188 


C171 


85 


F8 






STR 


TRBR+ 1 




2198 


C173 


CR 








DEX 






2298 


C174 


D8 


F@ 






BNE 


mrl 




2218 


C 1 76 


R5 


01 




HMflL 


LDR 


1 


; SPE I CHERKON F ., MERKEN 


2228 


Gl 78 


SB 


3B 


Gl 




SIR 


KONF 




2238 


C17B 


A3 


31 






LDR 


#$31 




2248 


Gl 7Ü 


{ y 








SEI 




;KEIN IRQ 


2258 


C17E 


85 


81 






STR , 


1 


;neue KONF I GURRT ION 


22 Stf 


Gl SO 


A8 


88 






LDV 


#8 


} IIHTRIft QUER--LREN6S WANDLUNG 


2278 


Gl 82 


R2 


87 




UilNA 


LDX 


#7 




2288 


Gl 84 


El 


F? 






LDR 


a'ABA^V 




2238 


Gl 86 


68 






UMW 


KOR 




/ROTIERE IN G FLRG 


2388 


Gl 87 


3E 


W'n/ 


Gl 




ROL 


HRTR..X 


; ROTIERE G IN EVTES 


2318 


cisfl 


Cfl 








de:«; 






2328 


Gl SB 


18 


F3 






BPL 


UHU! 




2338 


C18D 


G8 








I NV 






2348 


C18E 


G8 


88 






GPV 


#8 




2358 


Gl 98 


B8 


F8 






BNE 


UMWfl 




2368 


3^.. ,1, Jji d. 


AB 


3B 


Gl 




LDR 


KONF 


.; ALTE KONF« HERSTELLEN 


2378 


Gl 35 


85 


81 






STR 


1 




2338 


Gl 37 


58 








CLI 






233tf 


Gl 38 


RS 


88 






LDX 


#8 


; 8 BVTE ZUN DRUCKER 


2488 


Gl SR 


BD 


■iU •«■ 


Gl 


MOUT 


LDH 


IIA TR.. X 




2418 


C13B 


48 








PHR 






2428 


G13E 


28 


48 


C8 




JSR 


AUSGABE 




2438 


C1HL 


68 








PLR 






2448 


C1R2 


flC 


45 


Gl 




LDV 


BIO 


>2 URL DRUCKEN f 


2458 


cifls 


F8 


03 






Bi=.U 


HB IG 




2468 


C1R7 


28 


40 


G8 




JSR 


AUSGABE 




2478 


GIRR 


E8 






NB IG 


INX 






2488 


C 1 MB 


E8 


88 






CPX 


m 




2438 


C1RD 


DQ 


EB 






BNE 


MOUT 




2588 


C1RF 


68 






RTS.1 


PLfl 






2518 


G1B8 


RR 








TAX 






2528 


C1B1 


68 








- PLR 






2538 


C1B2 


RS 








TRV 






2548 


Gl B3 


68 








PLR 






2558 


C1B4 


18 








GLC 






2568 ■ 


C1B5 


68 








RTS 






2578 


C1B6 


68 






OUT 


PLR , 






2588- 


C1B7 


8D 


41 


Gl 




STR 


TENP 




2598 : 


ClBfl 


48 








PHR 






2688 • 


C1BB 


38 








TVfl 






2618 


C 1 BC 


'•rg 








PHR 






2628 : 


Gl BD 


8R 








TXA 






2638 : 


C1BE 


48 








PHR 




• 


2648 : 


Gl BF 


m 


41 


Gl 




LDR 


TENP 




2658 : 


C1G2 


C3 


0B 






CilP 


#*SB 


: ZEILENENDE '•CR> 


2668 : 


G1G4 


D8 


54 






BNE 


RSBI 




2678 


C1C6 


R3 


80 




CR 


LDH 


#8 




2688 


C1CS 


8B 


3F 


Gl 




STR 


ZSPflL 




2638 = 
Comout 


Gl OB 

nnir. 


8B 


48 


Gl 




STA 


2SPRL+1 
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2780 

2720 

2 7 4 8 
2750 
2760 

2 i* ' »■' y 

2780 
2730 
2880 

2820 
2830 

2850 : 
2868 : 

2888 ' 
2890 : 
2980 : 
2310 : 

2938 : 
2949 : 
2950 : 
2960 : 

298Ö : 
2990 : 
3080 : 
3010: 
3820 : 
3838^ 
3840 : 
3058 : 
3868 = 
3070 : 
3080 : 
3898 : 
3100: 

3110: 
3lii!0 •' 
3130: 
3140: 
3159 : 

3160: 

3170 : 
3188 : 

3190: 
3280 : 
3210: 
3220 = 
3238 : 

3248 : 



C1CE FE 3E Ci 
C1B1 F0 3R 
C1D3 18 MALI 
C1D4 RD 3F Cl 
CID? bD 46 Ci 
ClDfl SD 3F Cl 
C1DD RD 48 Cl 
C1E0 69 80 
C1E2 8D 48 Cl 
C1E5 CR 
C1E6 D0 eb 
C1E8 R9 1B 
GIER 20 48 CS 
C1ED RD 44 Cl 
C1F8 28 48 C0 
C1F3 MD 3F Cl 
C1F6 28 40 CS 
C1F9 RD 48 Cl 
C1FC 20 40 08 
C1FF R2 00 
C281 BD 3C 03 PK INT 
C204 28 47 Cl 
C2:0? ES 

C28B D0 F4 
C28D R9 0D NilALl 
C28F 28 48 C8 
C212 h'J 88 
C214 SB 3E Cl 
C21? 4C RF Cl 
C21R RD 88 84 R8BI 
C21D 8D 42 Cl 
C228 R5 D6 
C222 8D 3C Cl 
C225 R5 D3 
C227 8D 3D Cl 
C22R 28 66 E5 
C22D HB 41 Cl 
C238 28 16 E7 
CS 33 RD 08 84 
C236 RE 3E Cl 
C239 9B 3C 03 
C23C AD 42 Cl 
C23F 8D 80 84 
C242 RE 3C Cl 
C245 RC 3D Cl 
C248 18 
C249 20 8R E5 
C24C RE 3E Cl 
C24F E8 
C258 8E 3E Cl 
C253 EC 43 Cl 
C256 D8 83 
C258 4C Cb Cl 
C25B 4C RF Cl RT82 



LDX 
BEQ 
CEC 
LDH 
RBC 



LDH 
RBC 
STR 
DEX 
BHE 
LDH 
JSR 
LDH 

LDH 
JSR 
LDH 
JSR 

ldx 

LBR 

im 

BHE 
LDH 

LDR 
STR 
JHP 
LDH 

LDH 

STR 
LDR 
STR 

LDR 
JSR 
LDH 
LUX 
STR 
LDH 

LEX 

LDV 



LDX 

inx 

CPX 
BNE 
JHP 
JHP 



ZZRHL ; ANZAHL DER ZEICHEN 
NMRLi ' ;NUR ZEILE VORSCHIEBEN 

; ANZAHL DER SPROSSEN 
Z S P R L .; B E R E C H N E N 

ZSPRL 
ZSPAL+1 
#0 
ZSPRL+1 

MALI 

#2? ;ESC ZUM DRÜCKER 

RUSGRBE 

HÜBE ; EINZELPUNKT 968 SPROSSEN 

AUSGABE 

ZSPRL ; SPQSSENRNZRHL DEM 

R U S G R B E ; D R U C K E R M I "i" T E I L E N 

ZSPRL+1 

RUSGRBE 

#8 ; PUFFER AUSDRUCKEN 

PUFFER/ X 

CODE 

ZZRHL 

PRINT 

#$8B .; ZE I LEH VORSCHUB 

RUSGRBE 

#0 

ZZRHL 

KTS1 

1024 

SCHIRM 

$D6 

#D3 

CURS+1 ; SPALTE 

$E566 

TEMP 

$£716 

1824 

ZZRHL 

PUFFER, X 

SCHIRM 



; ASCII IN SCHIRMCODE 

; CURSOR-POS I "i" I ON MERKEN 
; ZEILE 



i HOME 

; ZEICHEN HOLEN 

; ZEICHEN RUF SCHIRM 

; ZEICHEN VOM SCHIRM 



CURS+1 

■$E58R 
ZZRHL 

ZZRHL 
MAXZ 

CR"" 
RTS1 



; CURSOR NIEDER SETZEN 
; CURSOR SETZEN 



.JRLLE 88 ZEICHEN DRUCKEN 
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Computercamp 



Ferienzentrum Schloß Dankern 




4 Tage (nur Pfingsten) 350- DM 

1 Woche 550- DM 

2 Wochen 980- DM 

3 Wochen 1480,- DM 

Die Preise gelten für Unterbringung mit Vollpension; die 
Kurse und fast alle Freizeitmöglichkeiten sind inklu- 
sive. 

Sondertarife für Gruppen oder Schulklassen auf Anfrage. 
Eitern, die ihre Kinder begleiten wollen, bind dazu herz- 
lich eingeladen - rufen Sie uns einfach an! 




Einsteiger, Fortgeschrittene und „Cracks" werden bei uns 

von qualifizierten Pädagogen bzw. Informatikern betreut, p ost ztme /, U m alles aufzuzählen: 
die es verstehen, individuell auf den Wissensstand jedes p on y r eiten,Schwimmbad,Minigoif,Tischtennis,Rie- 
Teilnehmers einzugehen und Informationen spielerisch senspielplatz mit Tarzanschaukel, Westernfort, 
zu vermitteln. Fahrradkarussel, Pferderennen, Kletterturm, Rie- 

senrutsche... alles im Preis enthalten! Darüberhin- 
aus Kegelbahnen, Autoscooter, Modellflugplatz, 
Fernsehräume, und auf dem Wasser Wasserskilift, 
Windsurfen, Wasserfahrräder, Tret- und Ruder- 
boote... 

Nicht zu vergessen das 300 Jahre alte Schloß, das zur 
Besichtigung einlädt, genauso wie mehrere Cafes, 
Restaurants, ein Ferienkino, eine Super-Disco.. . 

Haben wir etwas vergessen? Ach ja - einkaufen kann 
man auch - sogar sonntags! 

Wir finden: Ein insgesamt überzeugendes Angebot, das 
Die angebotene Palette umfaßt: sicher auch Computerfans begeistern wird. 

• Einführung in Hardware und -Bedienung 

• Einführung in die Kommunikation mit dem Computer 

• Einführung in die Programmiersprachen 

• Die Programmiersprache BASIC von A-Z 

• BASIC für Fortgeschrittene 
9 Perfektionieren von Programmen in BASIC 
9 Einführungund Programmieren in Maschinensprache" 

Darüberhinaus aber natürlich jede Menge detaillierter 
Information wie zum Beispiel BASIC-Dialekte, oder wie 
man einen bereits vorhandenen Computer optimal nut- 
zen kann, etc. 

Da der Erfolg der Kurse auch von der Verfügbarkeit der 
Geräte abhängt, garantieren wir jedem Teilnehmer 
ein eigenes Gerät, das er mindestens 3 Stunden täg- 
lich nutzen kann. 
Und- wie gesagt -für individuelle Betreuung ist genauso . 
gesorgt wie für Raum zur Entfaltung von Kreativität und 
Eigeninitiative - das fördert den wichtigen Erfahrungs- 
austausch. 

Zum Abschluß des Camps erhält jeder Teilnehmer ein 
Abschlußzertifikat, und kann natürlich auch selbst 
erstellte Programme etc. mit nach Hause nehmen. 

Die Camps beginnen jeweils an einem Samstag. Die 
Belegung ist möglich für 1 Woche, 14 Tage oaer3 Wochen 
(Pfingsten nur 4 Tage). 





schon au 





Ostern '84 


Pfingsten '84 


14.4.-21.4 


■h^ü 


21.4.-28.4 


9.6.-12.6. 


Sommer '84 Herbst '84 


23.6.-30.6 


6.10.-13.10. 


30.6.- 7.7 


13.10.-20.10. 


7.7.-14.7 


20.10.-27.10. 


14.7.-21.7 


27.10.- 3.11. 


21.7.-28.7 




28.7.- 4.8 




4.8.-11.8 




11.8.-18.8 




18.8.-25.8 




25.8.- 1.9 




1.9.- 8.9 






Gewohnt wird nicht in Hotels, Jugendherbergen oder 
Zeltlagern, sondern in supergemütlichen Ferienhäu- 
sern (4-6 Personen) aus Holz, die in unmittelbarer Nähe 
des Schlosses Dankern und des dazugehörigen Dankern- 
Sees liegen, inmitten t emes 150 Hektar großen Ferien- 
zentrums. Übrigens können Eltern auch gerne ihre 
Kinder begleiten - Anfrage beim Buchungsbüro genügt. 

Frühstück, Mittag- und Abendessen sind inklusive. 




Ort der Handlung ist das Ferienzentrum Schloß Dan- 
kern, 4472 Haren (Ems). Ein riesiges, landschaftlich 
wunderschön gelegenes Feriengebiet mitten im schönen 
Emsland. Wie man hinkommt, ist am besten der Karte zu 
entnehmen. Die Bahn (BahnhofHaren) ist nur etwa 2 km 
entfernt. Weitere Fragen beantworten wir gerne - rufen 
.Sie uns bitte an. ., 

Buchungsbüro Computercamp 
Ferienzentrum Schloß Dankern 
Holztwiete 4 D 
2000 HamburgSl 
Tel.:(040)82 79 42 
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- tödliche Strahlen greifen an 

Über Ihrem Planeten ziehen farbige 
Wolken auf. Diese Wolken schicken 
totbringende Strahlen zur Erde. Wenn 
einer dieser Strahlen eine der sechs 
Städte erreicht, so wird die Stadt zer- 
stört und somit sämtliches Leben ver- 
nichtet. 

Es liegt nun an Ihnen diese Invasion zu 
vereiteln. 

Nehmen Sie Platz in Ihrer LASER 
2001 Komandozentrale und zerstören 
Sie die tödlichen Strahlen, bevor diese 
sämtliche Städte vernichtet haben. 
Das Spiel wird mit dem linken Joy- 
stick gesteuert. Um auch mit einem 
ATARI Joystick spielen zu können, 
wurde der linke Feuerknopf zum Ab- 
feuern der Laserkanone belegt. 
Tippen Sie das Listing ein und spei- 
chern Sie dieses mit CSAVE auf Cas- 
sette ab. Starten Sie jetzt das Pro- 
gramm mit RUN. Sie werden als erstes 
nach einer Spielanleitung gefragt. Bei 
Eingabe von „ J" erhalten Sie eine kur- 
ze Anleitung auf dem Bildschirm. Da- 
nach können Sie eine von 10 Spielver- 
sionen wählen. Dies hat den Vorteil, 
daß Sie anfangs mit einer sehr leichten 
Version trainieren können, später je- 
doch gleich bei einer schwierigeren 
Variante beginnen können. 
Sie haben die Wahl zwischen folgen- 
den 10 Versionen: 

1 Kinderversion 

2 Blutiger Anfänger 

3 Anfänger 

4 leichte Version 

5 Normalversion 

6 Mittelklasse 

7 Fortgeschrittene 

8 Könner 

9 Profi 

10 Vollprofi 

Die Unterschiede in den verschiede- 
nen Versionen können Sie Tabelle 2 
entnehmen. 

Wenn Sie sich für eine bestimmte Ver- 
sion entschieden haben, so geben Sie 
bitte die Nummer der entsprechenden 
Version ein und drücken die -RE- 
TURN- Taste. 

Jetzt werden Sie aufgefordert den Ta- 
ster am linken Joystick zu drücken, 
um zu kontrollieren, ob Sie den richti- 
gen Joystick an die richtige Buchse 
angeschlossen haben. Wenn das ge- 
schehen ist, erscheint das Titelbild: 
Die Laserkanone erscheint, die Titel- 
schrift wird ausgegeben und das Lied 
vom Tod liegt in der Luft. 
Nachdem das Lied vom Tod verklun- 
gen ist, wird über Ihrer Laserkanone 
ein kleiner weißer Zielpunkt sichtbar. 
Diesen Punkt können Sie mit dem Joy- 
stick in 8 verschiedene Richtungen 
bewegen. Der Punkt kann jedoch nur 
in einem bestimmten Bildschirmbe- 
reich bewegt werden, und gibt den 
Zielpunkt Ihres Laserstrahles an. 
Die Strahlen ko mm en aus den farbigen 
Wolken und zielen immer auf eine 



existierende Stadt. Sie können einen 
Strahl vernichten, indem Sie diesen an 
seiner Spitze treffen. Dazu steuern Sie 
den weißen Zielpunkt in die Nähe der 
Spitze des Strahles und drücken den 
Feuerknopf. Wenn der Zielpunkt 
nicht weiter als 10 Bildschirmpunkte 
von der Strahlspritze entfernt ist, so 
wird der Todesstrahl zerstört. Feuern 
Sie jedoch einen Laserstrahl ab, wel- 
cher den Todesstrahl nicht trifft, so 
werden Ihnen im Energieband (grünes 
Band am unteren Bildschirmrand mit 



„E" gekennzeichnet) eine Energieein- 
heit abgezogen. Wenn Sie in diesem 
Energieband keine Einheiten mehr zur 
Verfügung haben^ so schießt der Laser 
nicht mehr, und Sie müssen tatenlos 
zusehen, wie Ihre Städte zerstört wer- 
den. 

Die Todesstrahlen treten in Wellen 
auf. Wenn Sie eine Welle gemeistert 
haben, so werden die geretteten Städte 
abgerechnet. Danach folgt die nächste, 
schnellere Welle an Todes strahlen. 
Die Wertung gliedert sich wie folgt: 



Welle 


Geschwindigkeit 


1 


lfach 


2 


2 fach 


3 


3 fach 


4 


4 fach 


5 


5 fach 


6 


6 fach 


7 


7 fach 


8 


8 fach 


9 


9 fach 


10 


10 fach 



Zerstörung 


Anzahl der 


gerettete 


Todesstrahl 


Strahlen 


Stadt 


10 Punkte 


8 


100 Punkte 


20 Punkte 


10 


200 Punkte 


30 Punkte 


12 


300 Punkte 


40 Punkte 


14 


400 Punkte 


50 Punkte 


16 


500 Punkte 


60 Punkte 


18 


600 Punkte 


70 Punkte 


20 


700 Punkte 


80 Punkte 


22 


800 Punkte 


90 Punkte 


24 


900 Punkte 


100 Punkte 


26 


1000 Punkte 



Das Spiel ist beendet, wenn alle sechs 
Städte zerstört sind. Es erscheint dann 
GAME OVER und das Lied vom Tod 
ertönt. 

Wenn das Lied vom Tod verklungen 
ist, so können Sie ein neues Spiel 
durch drücken einer beliebigen Taste 
auf der Konsole beginnen. 
Tabelle 2; Unterschiede der Varianten 
Variante Beginn bei Einheiten im 
Welle Energieband 



1 


1 


160 


2 


2 


152 


3 


3 


144 


4 


4 


136 


5 


5 


128 


6 


6 


120 


7 


7 


112 


8 


8 


104 


9 


9 


96 


10 


10 


88 



Die Geschwindigkeit steigert sich bis 
zur Welle 10. Danach geht das Spiel 
zwar weiter, erhöht die Geschwindig- 
keit jedoch nicht mehr. Es werden 
aber dann nach 26 Strahlen weiterhin 
die Städte abgerechnet. 
Wenn die Städte abgerechnet werden, 



ändern diese die Farben. 
Tips zum Eintippen: 
Verwenden Sie soviel als möglich die 
-CTRL- Tasten für die Eingabe. Das 
erspart Tippfehler. 

Anstelle von PRINT kann jedesmal ? 
eingegeben werden. Im Listing steht 
dann nachher wieder PRINT. 
Sämtliche Leerzeichen in den BASIC 
Anweisungen können weggelassen 
werden. Sie werden vom Rechner au- 
tomatisch beim Listing generiert. 
Schreiben Sie das Programm vor dem 
ersten Start mit RUN mehrmals weg 
(CSAVE), da der LASER durch die 
hohe Schreibgeschwindigkeit sonst 
das Programm nicht mehr, oder nicht 
mehr korrekt lesen könnte. 
Wenn das Spiel mittendrin einfach 
stehen bleibt, so ist ein Tippfehler vor- 
handen. Gehen Sie dann mit -CTRL- 
-S- in den TEXT Modus um die Feh- 
lermeldung zu sehen. 
Nach dem ersten Start muß sich bei 
der Abfrage ?RAM(0)- 16384 ein Wert 
in der Größenordnung 2100 bis 2310, 
je nach Abbruchsteile im Programm 
ergeben. 
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Laser 



2001 



y 
9 

10 
11 

80 

90 

100 

1.10 

129 
531 
1.30 
135 
136 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
197 

200 

205 

210 

215 
220 
225 
230 



rem *###mmm##*****:***^ 

REM # fl N D ROMEDfl * 

REM % ■ % 

REM * fuer LASER 2001 und linken Joystick # 

REM * -— * 

REM * <c> 1984 Volker Becker * 

REM % Steinbacher Strasse 10 * 

REM * 6378 öberu.rsel 6 * 

rem mmmmmmmmmmmm***** 

REM 



REM 

SOUND (. 255, 1 , >, < 255, 1 , 9 >, C 255, 1 , ) 
CLEfiR 
DIM SF<6,2) 



FÜR I 



1 TO 6 = SF< I 



240 
245 
250 
260 
265 
270 
275 
280 
285 
290 



320 
330 
335 
340 
950 
960 
962 
963 
965 
370 



i 



SF'-i,2) - 24 = SFC2,2) 



TEXT 

HOME 

PRINT 

COLOR« 

PRINT 

PRINT 

PRINT 

FOR I 

PRINT 

FOR I 

PRINT 

FOR I 

SOUND 



1) = 
= 56 



1 = NEXT I 
SFC3,2> ■ 



a,l,0,l> 



8Ö--SFC4.2) - 167 = SFC5,2> - 199-SF(6,2> 



CHR* C24>.; CHR* C24)j SPCC 9>>"fl N D R M E D R" 



CHR* C24)J 

" toet liehe Strahlen 
- 1 TO 16« PRINT CHR* 

SPCC 5Xi"Cc> 1984 by Volker 
■ 1 TO 14= PRINT CHR* C5>.: = 



CHR* <24> 



■3reiferi an" 
<24)i > HEXT I 
Beck er " 
NEXT l 



CHR* C5) 



SPCC 6Xj"SPie*iarileituri9 ? CJ/tO"j 
* 15 TO STEP - 1= SOUND <180; 1, 1 >,C190, 1, 1 >, C20O, 1,J )< NEXT I 
< 255, 1 , >, C 255, 1 , >, C 255, 1 , >, C 1 , 1 , 0, 1 > 



CHR* <24)j 
SPC< 7>j"2 



GET 3*- IF S* » ' 

IF S* * "N" THEN 

GOTO 190 

HOME 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR I 

SOUND 

INPUT RU 
300 RU s INT CRU) 
310 IF RU < 1 OR RU ) 

PRINT CHR* <24n 

CALL - 1536 



J" THEN GOTO 
GOTO 200 
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000 



3PIELVERSI N E N" 



SPCC 
SPC< 
SPCC 
SPCC 
SPCC 
SPCC 
SPCC 
SPCC 
CHR* 



7>i"d 
?>)"4 
7>.;"5 
7).i"6 
7>.i "7 
7>;"8 
7>j"9 
6): "10 
C5); SPCC 



CHR* C24?;' CHR* C24>.: SPCC 7).;"1 K.iriderversiorr' 
Blutiger Rnfaen9er" 
Bnfaenöer" 
leichte Vers i ort ' ' 
Norrna l vers i on " 
Mittelklasse" 
Fort9eschr i ttene " 
Koervner" 
Profi" 
Voll Profi"} CHR* C24>; CHR* C24)j CHR* C24).; CHR* C24) 



7);" Ihre Wahl bitte ■• "j 
= 15 TO STEP - 1 • SOUND C180, 1 , 1), U90, 1 , 1 ), C 200, 1 , I > ■ NEXT I, 
C255,1,0:«,C255,1,0>,(255,1,0>,C 1,1,0. 1) 



10 THEN GOTO 275 
CHR* C24);" Taster 



am linken Joysick druecken" 



IF PEEK C21) » 17 THEN GOTO 950 

GOTO 330 

HOME 

GR 

GOSUB 56200 

COLOR* 8,1 

FOR I a 17! 

NEXT I 



TO 191= PLOT 0,1 TO 255,1 
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980 P = 9 = EG ™ 168 - (RU * 8> 

998 GOSUB 50586= GOSUB 31098 

995 GOSIJB 430Ö0 

1892 C ::s 2 

10Ö3 GOSÜB 42000 

1004 FÜR V * 1 Tu 2 

1005 FOR S «5 TO £50 STEP 8 = 2 » 5 + INT ( RND (1) * 6> = 

1006 C * C + X-. IF c > 14 THEN C ~ £ 
100? NEKT 8 

100Ö HEXT V ! GOSUB 60060; GOSUB 49960 

1009 RU - RU - 1 

1Ö10 2-a 161=8 = 17= GOSUB 50909= SOUND < 10,2* 15) 

1020 S : = 49= GOSUB 50000= SOUND £20,2,15) 

1030 S = 81= GOSUB 50900' SOUND (30.2.15) 

1040 S ~ 160= GOSUB 50090' SOUND (48,2.. 15) 

1050 S ■-" 192 = GOSUB 30000' SOUND (59,2-, 15) 

1068 S = 224= GOSUB 50800= SOUND (68,2.15) 

1070 RU « RU + 1 

1108 FOR RH « 1 TO 6 + 2 * RU 

2000 R « INT C RND £255) * 5 + 1.5)» IF 8F(R,1) « THEN 

2810 8 ™ INT ( RND (8F(R,2>) * 234 + 10) 

2815 Bl * B 

2020 ST * 3F(R,2) - B 

2030 ST = (ST / 146) * RU 

2835 SV * 127:2V « 140 

2048 C » 1 

2058 FOR 2 * 15 TO 168 STEP RU 

2852 FOR I ~ 1 TO 3 

2853 CALL - 1536 

2854 JS = PEEK (2.4) 

2855 IF JS < > © THEN GOTO' 10898 

2856 CO'LORs 15,1= PLOT SV, ZV 
2057 HEXT I 

2868 CÜLOR= C, i -C « C + 1= IF C >.15 THEN C ™ 2 
2070 PLOT Bi 15 TO Bt,2 
2880 Bl = Bl + ST 
2090 ' HEXT 2 
2108 GOSUB 41080 

2185 UHPLOT SV, ZV 

2186 FÜR VG » 1 TO 
2107 HEXT VG 
2188 GOTO 50908 
"2:120 HEXT RN 

2148 FOR SR « 1 TO 6 = IF SF(SR,1> * i THEN 
0: SOUND (18 * SR,2,15):R = p + 108 % RH •■ GH:" 
2150 NEXT SR 

2155 RU === RU + 1: IF RU > 10 THEN RU ~ 18 
2168 GOTO 1100 
10000 JS « JS / 2 

10085 IF JS > 59 THEN GOTO 28080 
10018 IF JS > 18 THEN GOTO 11008 

1 8820 OH J S GOTO 18108,1 0288 ,18388,10488,256.1 0600 
10108 UHPLOT SV, ZV 

10110 IF ZV > === 146 THEN GOTO 2856 
101.28 ZV « ZV + 4 
10130 GOTO 2056 
10208 UHPLOT SV, ZV 

18210 IF SV > * 245 THEN GOTO 2056 
18220 SV « SV + 4 
10238 GOTO 2856 
18300 UHPLOT SV, ZV 

18310 IF ZV > s 140 OR SV > « 245 THEN GOTO 2056 
18320 SV = SV + 4: ZV = ZV + 4 



GOSIJB 58480 



GOTO 2808 



IF SF(VG,1) « i THEN GOTO 2128 



5 « SFXSR,2> 
3UB 31808 



161 = GOSUB 5088 



40 
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18330 GOTO 2056 

1040O UNPLOT SV, ZV 

1041O IF ZV < s 50 TUEN GOTO 2056 

10420 ZV -~ ZV - 4 

1 0430 GOTO 2956 

10600 UNPLOT SV, ZV 

10610 IF ZV < « 50 OR SV > « 245 THEH GOTO 2056 

1.0620 ZV - ZV -- 4 : 8V ™ SV + 4 

10638 GOTO 2056 

10700 UNPLOT SV, ZV 

1.0710 IF SV < = IS THEH GOTO 2056 

10720 SV ss SV - 4 

1 Ö730 GOTO 2056 

10808 UNPLOT _SV, ZV 

10810. IF ZV > .5= 140 OR SV < = 10 THEH GOTO 2056 

10820 SV ™ SV - 4 = ZV « ZV + 4 

10830 GOTO 2056 

10900 UNPLOT SV. ZV 

10910 IF ZV < = 50 OR SV < --10 THEH GOTO 2056 

10920 SV = SV ■- 4'ZV ™ ZV - 4 

10930 GOTO 2056 

1.1.800 JS « js - ig 

1. 1 1. OH JS GOTO 10700, 10 80Ö , 2 056 .. 205 6,10 900 

20000 COLOR- 13,1 

20005 IF HG = THEH GOTO 2056 

20018 PLOT 127,159 TO SV, ZV 

20012 SGEN 190, 10, 180,220,210,255 
2001.3 SGEN 1,1,2,2,3, 19 

20014 FOR LG ™ 1 TU 58= NEXT LG 

200 15 SGEH 1 59 , 1 9 1 , .223 , 255 

20016 UNPLOT 127,159 TO SV, ZV 

20017 IF ABS <2V - <.Z - RU>> < » 10 THEH GOTO 20030 

20013 EG « EG ■- 1 = C0LOR="2,i' UNPLÜT EG + 16,184 TO EG + 16,186 
20020 GOTO 2056 

20030 IF (Bl - SV) < k 10 THEN GOTO 21000 

2' ;: i040 GOTO 20O1S 

21000 S = SV=Z « ZV : GOSUB 30000 

21010 GOTO 2105 

3 O SGEN 159,191,223,255 

3000 5 SGEH 100,77 , 2 10.. II 

30010 SD ™ 1 

30015 FOR I s i TO 10 

30020 SGEH SD, SD + 32.. SD + 10, SD + 64, SD + 5, SD + 48 

30030 COLOR« C,l <C ™ C + 1 : IF C > 15 THEH C - 2 

30040 CIRCLE (S,Z>,I 

30050 HEXT I 

30070 FOR K « - 10 TO 10 

30080 COLOR- C,1=C » C + 1= IF C > 15 THEH C ; ~ 15 

30090 SGEH SD, SD + 32, SD + 10, SD + 64, SD + 5, SD + 48 

30100 SD a» SD + 1 

30110 UNPLOT 3 - 10, Z - K TO S + 10. Z + K 

30114 UNPLOT B + K,15 TO Bl + K,Z - RU 

30115 UNPLOT B + K,15 TO Bl + K,Z 

30116 UNPLOT ß + K,i5 TO Bl + K,Z + RU 
30120 NEXT K 

30130 SOUND < 255, 1 , >, < 255, 1 , >, < 255, 1 , >, i 1 , 1 , 0; 1 > 

301.40 SGEN 159,191,223,255 

30150 SGEH 100,77,210,110 

30170 FOR K » ™ 10 TO 10 

30180 COLOR« C,1=C « c + 1 = IF C > 15 THEH C « 15 

30190 SGEH SD, SD + 32, SD + 10, SD + 64, SD + 5, SD + 43 

30200 SD = SD + 1 

30210 UNPLOT S -- K,Z + 10 TO S + K,Z - 10 
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36220 HEXT K 

3Ö226 SGEN 159,191,223,255 

30227 P » P + 10 * RU' GOSUB 31600 

30230 RETURN 

31000 CÜLQR* 8,1 

31 885 P* « QTR* <.Pj 

31007 S - 249 - 7 * LEN <P*> 

31810 L « VflL < MD* <P$,1,1>) + 1 

31020 PLOT S + 1,181 TO 8 + 5,181 TO 8 + 5,189 TO S + 1,189 TO 3 + 1,181 

31925 PLOT 8 + 2,185 TO 8 + 4,185 

31038 OH L GOSUB 40000,40100,40200,40300,40400,40500,40690,40700,40800,40909 

31035 IF LEN <P*> < ■ 1 THEN RETURN 

31040 P* * RIGHTS <P*, LEN <P*> - i> 

31Ö50 GOTO 31067 

HOME 

CÖLOR» 1,7 

RR INT 

PRINT 

PRINT 

PRINT 

PRINT. "Toetliche Strahler, aus dem Weltall 

PRINT "Ihre Ruf*3abe ist es nun diese 
diese Ihre sechs Staedte vernichtet habein" 
35078 PRINT "Bewe9en Sie mit. derri Joystick den 
nsc h t e 3 1 e 1 1 e , und drueck en Sie den linken Rk t i onsk noP f . " 
35080 PRINT "Wenn Sie die SPitze des Strahles im Umkreis von 10 BildPunkten mit 

dem Laser erreicht haben, so wird der Strahl vernichtet." 
35090 PRINT "Gelingt es Jedoch einem Strahl bis zu. einer Stadt vorzudringen, s 
o wird diese zerstoert." 



3500Ö 
35005 
35010 
35020 
35630 
35048 
35850 
35060 



SPC< 
SPCC 



9>.;"R NDROMED R" 

q>. <• »' 



Greifen die Erde an. " 
Strahlen zu zerstoeren, bevor 

weissen Zielpunkt an die 9ewue 



H00 PRINT "Das SPiel ist beendet, wenn alle 



sechs Staedte vernichtet sind, 



35105 
35110 
35120 
35130 
35140 
35159 
35160 
rhu ss 
35170 



PRINT 

PRINT SPCC 8 )j "Weiter mit < RETURN >" 

GET R* = IF m = CHR* <13> THEN GOTO 35140 

GOTO 35120 

HOME 

PRINT 

PRINT "flehten Sie besonders auf das Energieband, denn fuer Jeden S 
der daneben 9eh t , w i r d I hnen eine Ener 9 i ee i nhe i t a bse zo9en , " 

PRINT "Wenn Sie keine Energie mehr haben, so muessen Sie tatenlos zusehe 
n. wielhre Staedte zerstoert werden." 

35180 PRINT "Es stehen Ihnen 10 Versionen zur Verf ue9un9, die sich in der St 
art- runde und in der Laen9e des Ener9ie-bandes unterscheiden." 
35190 PRINT CHR* < 24);" Sie erhalten Pro zerstoertem Strahl 10 * Runde Punkte. 
Nach Jeder Runde werden die 9eretteten Staedte mit 100 % Runde Punkte abSerech 
net." 

PRINT "Pro Runde erscheinen 6 + 2 * Runde Strahlen." 

PR 1 NT CHR* < 24 > i " Doch nun viel SP ass be i m SP i e 1 " 

PRINT CHR* <.Z4'>) SPC< 8>j "Weiter mit < RETURN >" 
R* a CHR* (13) THEN GOTO 



35200 
35210 

35220 
35230 
35240 
35250 
35260 
40000 

40010 

40020 

40030 
40040 
40050 

4tö060 

40100 
40110 

401.20 



GET R*= IF 
GOTO 35230 
COLOR» 1,2 
GOTO 200 
FÜR I « 181 
HEXT I 
FOR K ~ 
FOR I » 
NEXT I 
HEXT K 
RETURN 
UNPLOT 
UNPLOT 
RETURN 



35io 







TO 189 STEP 



UNPLOT S +2,1 TO 3 + 4,1 



1 TO 5 
182 TO 



STEP 4 
186 STEP 



182 

186 



TO S 
TO 3 



4' UNPLOT S + K,I TO 8 + K, I + 2 



134 
188 
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+ 2, I TO S + 4.. I 



40200 FÜR I a ist TO 189 STEP 4= UNPLOT S + 2.1 TO S + 4,1 

4Ö21.0 NEXT I 

40220 UNPLOT S + 5-182 TO 5 + 5,134 

40230 UNPLOT S + 1,186 TO S + 1,188 

40240 RETURN 

40300 FOR I * 131 TO 189 STEP 4= UNPLOT 

40310 NEXT I 

40320 UNPLOT S + 5,182 TO 3 + 5,184 

40330 UNPLOT S + 5,186 TO S + 5,188 

40340 RETURN 

404Ö0 UNPLOT S + 1,182 TO S + 1,184 

40410 UNPLOT S + 5,182 TO S + 5,134 

40420 UNPLOT S + 2,185 TO 3 + 4,185 

40430 UNPLOT 8 + 5, 186 TO 8 + 5, 188 

40440 RETURN 

40500 FOR 1-181 TO 189 STEP 4- UNPLOT 8 +2,1 TO 8 + 4.1 

40510 NEXT I 

40520 UNPLOT S + 1,182 TO 3 + 1,184 

40530 UNPLOT 8 + 5,186 TO S + 5,138 

40540 RETURN 

40600 FOR I - 181 TO 189 STEP 4= UNPLOT 8 + 2,1 TO 8 + 4,1 

40610 NEXT I 

40620 UNPLOT 8 + 1,182 TO 8 + 1,184 

40630 UNPLOT S + 5,186 TO S + 5,188 

40640 UNPLOT S + 1,186 TO 3 + 1,188 

40650 RETURN 

40700 UNPLOT S + 2,181 TO S + 4,181 

40710 UNPLOT S + 5,182 TO 3 + 5,184 

40720 UNPLOT 8 + 5,186 TO S + 5,188 

40730 RETURN 

40800 FOR I » 181 TO 189 STEP 4' UNPLOT 8 + 2,1 TO S + 4,1 

40810 NEXT I 

40830 FOR K s 1 TO 5 STEP 4 

40840 FOR 1 ~ 182 TO 186 STEP 4' UNPLOT S + K,I TO 'S + K, I + 2 

40850 NEXT I 

40860 NEXT K 

40870 RETURN 

40900 FOR I = 181 TO 189 STEP 4- UNPLOT 8+2,1 TO 3+4,1 

40918 NEXT I 

40920 UNPLOT 3 + 5,182 TO S + 5,184 

40930 UNPLOT 3 + 5,186 TO S + 5,188 

40940 UNPLOT 3 + 1,182 TO 8+1,184 

4095Ö RETURN 

41Ö00 3 = 3F<fi,2>=2 = 164 

41070 FOR K ■ - 10 TO 10 

41080 CÖLOR« Cl'C = C + 1: IF C > 15 THEN C = 15 

41090 SOUND (200 - K, 1,15), (190 - K, 1, 15>,<205 - KM* 15) 

41118 UNPLOT S - 10,2 - K TO S + 10,2 + K 

41120 NEXT K 

41226 SOUND (. 255, 1 , ), <. 255, 1 , >, <. 255, 1 , '), i 1 , 1 , 0, i > 

41228 SGEN 1130,77,210,110 

41230 FOR I = - 10 TO 10 

41235 SD -1+11 

41237 SGEN SD, SD + 32, SD + 10, SD + 64, SD + 5, SD + 48 

41240 UNPLOT B + 1,15 TO Bl + 1,161 

41242 UNPLOT Bl,161 TO Bl + 1,174 

41243 SGEN SD, SD + 32, SD + 10, SD + 64, SD + 5, SD + 48 
41250 NEXT 1 

41253 SGEN 159,191,223,255 

41255 SOUND < 255, 1 , 8 >, C 255, 1 , >, < 255, 1 , >, Cl , 1 , 0, 1 > 

41260 FOR I s 161 TO 174= UNPLOT S -10,1 TO S + 10,1 

41270 NEXT l 

41275 SF<R,0 « 
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41280 

42009 
42085 
42018 

42020 
42030 
42040 
42050 
4206Ö 
42070 
4990Ö 
49910 
4992Ö 

50000 
50016 

50020 
5003Ö 
58040 
50050 
50Ö60 
50070 
50880 
50090 
50100 

50110 

50120 
50 1 30 
50140 

^0150 
50160 

50170 
50180 
50200 
5Ö210 
5 f : i 2 20 
50230 
50240 
50258 
50260 
50270 
50280 
50290 
50300 
50310 
50320 
58330 
50348 
50350 
50360 
50370 
50380 
50400 
50410 
50420 
50430 
50440 
50450 
50460 
50500 
50501 
50502 

* 5 i0503 

50510 
44 _ 



RETURN 

S * 16 iZ - 56 

FÜR C = 2 TO 10= COLÜR- C,l 

READ SK 

FOR I ~ TO 2 

ON SK GOSUB 51000.. 52066 .. 536 00 , 5 4886 .. 55080 .. 5 60 8 , 5 78 88 ..58008 .. 598 06 

HEXT 1 
8 » 8 + 24 

HEXT C 

RETURN 

FOR I * 54 TO 78» UNPLOT 0,1 TO 255.. I 

HEXT I 

RETURN 

COLOR- RU + 2... 1 

PLOT S + 7,Z TO S ■+ 7,Z + 1 

FOR I - 2 TO 3- PLOT S + 6,Z + 1 TO S + 8,Z + I 

HEXT I 

FOR I « 4 TO 3= PLOT 8 + 5/Z + I TO 8 + 9.. Z + I 

HEXT I 

FOR I « S TO 10 i PLOT 8,Z + I TO S + 9.-Z + I 

HEXT I 

FOR 1=11 TO 13= PLOT S,Z + I TO 3 + 14, Z + I 

HEXT I 

FOR I = 12 TO 13 i PLOT S + I,Z + 5 TO 3 + I,Z + 10 

HEXT I 

PLOT S + 2,Z + 7 

PLOT S + 1,Z + 8 TO S + 3,Z + 8 

UNPLOT S + 2,Z + 16 

UNPLOT S + 7..Z + 4 TU 8 + 7,Z + 5 

FOR 1 « 11 TO 13 STEP 2= UNPLOT S + I,Z + 12 

HEXT I 

RETURN 

COLOR« 11,1 

PLOT 127,168 TU 127,162 

PLOT 123,160 TO 128,162 

COLOR« 6 , 1 

FÜR I * 163 TO 165= PLOT 126,1 TO 129,1 

HEXT I 

COLOR™ 5,1 

FOR I a 166 TO 170^ plqt 125,1 TO 138,1 

HEXT I 

UNPLOT 127,166 TO 128,166 

UNPLOT 126,167 TO 126,163 

UNPLOT 129,167 TO 129,168 

UNPLOT 127,169 TO 128,169 

COLOR- 2 , 1 

FOR 1-120 TO 124= PLOT 1,175 TO 1 + 4,171 

HEXT l 

FOR l b 135 TO 131 STEP ■- 1= PLOT 1,175 TO I - 4,171 

HEXT I 

RETURN 

COLOR- C, 1 

FOR I s 1 TO 5= CT.RCLE (S,Z>,I= HEXT I 

FOR I a - 5 TO 5 STEP 3= UNPLOT S ••-• 5,2 - I TO S + 5,Z + I 

HEXT I 

FOR I s - 5 TO g STEP 3= UNPLOT S - 1,0 TO S + 1,1 Ö 

HEXT I 

RETURN 

COLOR« 8,1 

FOR I ™ 181 TO 139 STEP 4= UNPLOT 10,1 TO 12,1 

HEXT I 

UNPLOT 9,131 TO 9,139 

UNPLOT 15,137 TO 16 + EG, 187 TO 16 + EG, 183 TO 15,183 TO 15,187 
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50528 COLOR= 2, 1 

58538 FÜR I s 184 TO 186= PLOT 16,1 TO 15 + EG.. I 

50540 HEXT I 

50550 RETURN 

509130 FÜR K « 1 TO 8= READ 3,Z,SK.C 

5091,9 COLOR« ü, 1 

58920 FÜR I s= TO 2 

509 30 H Sl< G SUB 51800.-52 8 8 .. 53 6 .. 5 400 , 5 5 , 56000 , 570130 

50935 NEXT I 

50936 HEXT !< 
50948 GÜSUB 6Ö000 
50950 GET A$ 

58970 IF fl* < > "" THEN GOTO 58988 

58975 GOTO 59950 

50 9 88 RUN . 

M000 PLOT S + 19 + 1,2 ■•!" 1 

TO S + 19 + 1,2 + 22 -- I TO 

51018 RETURH 

52800 PLOT' 8 + 2 + ItZ + 22 

TO S + 19 + 1,2 + 22 - I 

52018 PLOT 3 + 6 + 1,2 + 12 

52020 RETURH 

53800 PLOT S + 2 + I , Z + 22. -- l TO S + 2 + I 

TO 8 + 11 + 1,2 + 12 -- I TU 3 + 19 + I , Z +' 1 

53010 RETURH 

54Ö06 PLOT 8 + 1.9 + 1,2 + 1 

TO 8 + 19 + 1,2 + 22 - I 

54010 PLOT 8 + 2 + 1,2 + 12 

54820 RETURH 

55000 PECT CS + 2 + 1,2 + 1 

55810 RETURH 

568Ö0 F'LÜT 8 + 2 + 1 , 2 + 1 

I TO 8 "i" 19 + 1,2+1-1 

56018 RETURH 



I TO S + ? + J . : 
+ 13 + 1,2 + 12 ■ 

I TO 8 + 10 + I 

I TO 8 + 15 + I 



+ 1 ■ 
I TO 

! + 1 

: + l: 
+ i • 

l TO 



I TO S + 2 + 1,2 + 22 • 
; + 7 + 1,2 + 12 ■■-■ l 

I TO 8 + 11 + 1,2 + 1 

- I 

I TO 8 + 10 + 1,2 + 12 
+ 1 9 + l , Z + 22 •-• I 



I TO 8 + 2 + 1 , 2 + 1 -- I TO 8 + 2 + 1 , 2 + 22 • 
I TD 8+15 + 1,2 + 12-1 
I ■'.- (8 + 19 + 1,2 + 22 ■■- I ) 
I TO 8 -i- 18 + 1,2 + 22 - I TO 8 + 11 + 1,2 + 2:1 



17000 PLOT 8 + 2 + I , 2 + 22 



I TO 8 + 2 + 1,2 + 1 
'. + 8 - I TO : 
- I 



I TO 8 + 15 + 1,2 + 1 » I 
+ 15 + 1,2 + 12 - 1 TO 8 + 



+ 2 + 1,2. + 1 



TO S + 19 + 1,2 + 5 '- I TO 8 + 19 + 
6 + 1,2 + 12 ■- I TO 8 + 19 + 1.2 + 2 
5781.0 RETURN 
58880 PLOT 8 + 2 + I , 2 + 22 - I TO 

TO 8+19+1,2+1-1 
58018 RETURN 

59008 PLOT 8 + 2+1,2 + 1 - I TO 8 + 15 + 1,2 + 1 - I TO 8 + 19 + l .? + 5 •- I 
TO 8 + 19 + 1,2 + 18 -• I TO 8 + 15 + 1,2 + 22 - 1 TO 3 + 2 + 1,2 + 22 - I fn S + 

?.. + 1,2 + 1 - I 
59018 RETURN 

5 9999 DR T A 2,8,9 , 7 ,5,3 , 4 , 9 , 2 

68800 DATA 95 , 255 , 20 , 1 60 , 95 , 50 , 1 65 , 1 48 , 1 8 , 1 60 , 1 35 , 18,1 48 ,128, 1 8 , 1 35 ,113, 58 , 1 3 
*~> , 255 , 20 , 1 84 , 165, 20 , 2 1 , 1 34 , 40 , 207 , 1 75 , 1 8 .. 28 1 , 1 65 , 1 , 207 ■ 1 75 , 60 ■ 20 1 . i 6^ ■ ?fl . ?fl 1 . 1 
65,20, 195, 160,38, 192, 148, 18, 195, 168, 18, 184, 135, 10 

68082 DATA 1 75 , 1 28 , 60 , 1 75 , 255 ,20,1 84 , 1 65 , 28 , 2 1 8 , 1 84 , 20 , 20 1 , 1 65 , 30 , 1 95 ,.255 , 1 8 , 
287, 175,60 

600 83 DATA 175,255, 28 , 1 34 ,165,28,210,184, 28 ,201,165,38,195,16 , 1 8 , 1 95 , 1 60 , 68 
, 8 , ,0 

68010 RES TORE 

60015 FOR I b 1 TO 9= READ 3i< • HEXT I 
68020 READ H1,H2,V: IF Hl ~ 8 THEN GOTO 60055 
68830 SOUND ( H 1 , V , 1 5 > , (. H2 , V , 1 3 > 
60050 GOTO 68820 
60055 SOUND < 255 , 1 , > , < 255 , 1 , 8 > , C 255 , l , 8 ) > U , 1 ,8,1 > 

60856 RETURH 

60857 SGEH 1 59 , 1 9 1 , 223 , 225 

68078 DATA 40 , 48 , 1 , 5 , 88 , 48 , 2 , 1 8 , 1 36 , 48 , 3 , 8 , 1 84 , 48 , 4,2, 48 , 88 , 5 , 1 3 , 88 , 88 , 6 , 4 , 
136-88,4,14,184,33,7,7 
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Das Spiel „Reversal" dürfte eigent- 
lich fast jedem Computerbesitzer 
bekannt sein, denn es ist auf vielen 

Computern als Programm verfüg- 
bar. Hier ist nun die Apple- Version 
dieses Spiels. Die Spielregeln wer- 
den, falls noch nicht bekannt, auch 
vom Programm erklärt, wenn man das 
wünscht. Weiterhin kann man noch 
zwischen zwei Spielstärken wählen 
und dem Computer mitteilen, ob man 
orangefarbene oder blaue Spielsteine 
haben will. 

Orange beginnt das Spiel. Das elektro- 
nische Spielbrett wird auf dem Bild- 
schirm samt Bezeichnungen der Felder 
in der Applegrafik farbig dargestellt. 
Der Spieler gibt das Feld, auf das er 
setzen will, an, indem er jeweils einen 



Buchstaben für die vertikale Stellung 
und eine Zahl für die horizontale an- 
gibt. 

Der Computer bestätigt den Zug und 
führt alle notwendigen Veränderun- 
gen auf dem Brett automatisch aus. 
Dann „denkt" er eine Weile und gibt 
seinen Zug bekannt. 
Falsche Benutzereingaben werden ab- 
gefangen. Man sollte daran denken, 
daß man immer nur einen Buchstaben 
und eine Zahl eingibt, ohne <RET> 
zu drücken. 

Sind alle Felder belegt oder hat ein 
Spieler keine Steine mehr, dann rech- 
net der Computer den Gewinner aus 
und gibt eventuell noch einen Kom- 
mentar zum Spielverlauf. 
Das Spiel kann auch zu zweit gespielt 



werden, wobei der Bildschirm eben 
nur als Spielbrett dient. Man muß 
dann am Anfang eingeben, daß man 
nicht gegen den Apple spielen will. Ob 
man hier nicht vielleicht ein reales 
Spielbrett vorzieht, bleibt jedem selbst 
überlassen. 

Bei der Eingabe des Programms muß 
man beachten, daß vor allem die ersten 
Zeilen bis zur maximalen Zeilenlänge 
vollgepackt sind. Man sollte beim Ein- 
tippen alle Freiräume weglassen, sonst 
verweigert der Apple die Annahme 
der Zeile. 

Die Spielstärke ist für die „Denkzeit" 
ganz annehmbar und der Anfänger hat 
bestimmt eine Weile zu üben, bis er 

zum ersten Mal gewinnt. Viel Spaß 
dabei! 



C) : NEXT ; D 
i; RGT= 0: PQKE 



24870 : DI !i A ( 9 . V ) , B i 7 ) , C ( 7 ) . BS ( 2 ) : FOR L — TQ / : READ 8 ( C ) .C ( 
1 . 1 , - i 



TEXT s HOHE : PRINT "GREETINGS PRÜM REVERSI"2 FR INT "ANLEITUNG BENGETI 

ST ? :! S: GET CS: IF CS = "N" THEN PRINT "NEIN": SOTO S 
PRINT "JA" s PRINT ; HOHE : CÜL0R-- 3: HL IN 0,39 AT 0: VTAB 2: PRINT !i #R 
EvERSI IS PLAYED ON AN 8 * B BOARD. #"?: PRINT !! #Rö£»J5 NUHBERED 1 - 8 
AND COLUMNS A - H #"?: PRINT "#TH€ INITIAL CÜNFISURATIOM IS ALL BLAN 
«#";: PRINT ,ä #EXCEPT FOR THE CENTER PQUR SQUARES # ,s ü : PRINT "#TRY 
Tö PLACE YOUR PIECE SO THAI IT #"S 
PRINT ,ä #QUTFLANKS MINE, CREAT INS A HORIZONTAL» #" i : PRINT "#VERTICAL,OR 
DIAGONAL RUN OF MY PIECES #";: PRINT "#TURNING THEN INTO YOURS 

# !i 5 : PR I NT S1 # # " ; ; RR I NT 

"#MAKE YOUR NO VE BY ENTER INGA NUMBER #"°, 
PRINT "#F0R THE RGw AND A LETTER FOR THE # ,s j: PRINT "#Ü0LUMN. 

## #" 

z ; PRINT !, #N0TE: YOU MU3T CAPTURE AT LEAST ONE QF##POSSIBLE. IF IT IS 



NOT PQSSIBL 



# i! ? 



PnS :iää±Vnj sp MilWP 



Ü4 



6 PRINT "#PQRFE IT YOUR NOVE BY ENTER INS ( 

#";: PRINT äi # 
IF YOU UNDERSTAND, FRESS A KEY $"'$ 

7 PRINT "4? ä±s 

###^^^#^^^^^^^^^^^^^^§^4|^^^ä^^^^^^^^{;^'-'> « VTAB 20: 
HTAB 33: SET AS 

CjiK = isL — 0;M = 0:N — 0; HONE : PRINT ; PRINT "WILLST DU GEGEN DEN 
APPLE SPIELEN->";: SET CSs IF CS = !! N" THEN PRINT "NEIN": GOTO 13 
9 PRINT " JA":K = 3: PRINT : PRINT "SDLL ICH SO GUT SPIELEN,": PRINT "WI 
E ICH KANN — >";s SET CS; IF GS ~ "N' : THEN PRINT " NEIN"" GQTQ Ü 

i.t PRINT : PRINT "ORANGE FAENGT INNER AN . . . '' i PRINT : PRINT "WILLST Du 
ORANGE ODER BLAU — > "3: GET CS: IF CS = S! 0" THEN .PRINT DS(ö>: GOTO 



IF E = QR F = 



jB Cj7; /Uli ü/ 



:XT J,Isft< 
2 THEN VTAB 
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18 


P = 0:0 = B: 0M K 8QSÜB 57,57,70 


19 


ip j-| = i THEN 21 


20 


£ = sr + ^ 4- i j d =: j> — R:F = F + is 8QSUB 51 


21 


lf n = o OR F = 64 QR H < THEN 23 


jd.iC 


GOTO 1 4 


■"*i"7* 


HOHE : VT AB 21: PRINT "ORANGE HAT "D" UND BLAU HAT Si E i! STEINE. i! ; INVERSE 




• IF BC ~ WC THEN 26 


Vii 


IF D > E THEN 27 


ioiw* 


PRINT "BLAU";:" GOTO 28 


26 


PRINT " UNENDSCH I EDEN :!"° NORMAL : SOTO 39 


2 / 


P R I NT ä ' OR ANS E " * 


Xiö 


PRINT äi GEWINNT '":D = D - Es NORMAL : IF I) > THEN 30 


29 


n tz •- Ty • 


30 


n - (64 * D) / F: PRINT "DAS WAR EIN "?s IF D < 11 THEN 38 


"•? 1 


IF D < 25 THEN 37 


..,.,., 


IF D ( 39 THEN 36 


"%~T 


IF D < 53 THEN 35 


34 


FR I NT l! PERFEKTES SP I EL !i i GOTO 39 


■iD 


PPTjsjT "DURCHMARSCH": GOTO 39 


■1?C) 


pp t wt ,; KAMFF " : 8DT0 39 


!T7 


PRINT "HEISSES SPIEL : " : GOTO 39 


"'•TP 


PF? INT "WAHNSINN i!! : GOTO 39 


39 


PRINT "wILLST DU NOCHMAL SPIELEN " " : GET CS: IF CS = ! 'J i! THEN PRINT 




"JA": RUN 7 


40 


PRINT "NEIN";: TEXT s HONE : PRINT "DANKE FUER3 SF^IELEN i ! : ' : END 


41 


q = 0: FÜR T - - 1 TO 1: FÜR v = - 1 TQ 1: IF Ad + T«u + V) - 9 THEN 


42 


NEXT V..T: RETUfÜN 


43 


3=1; RETURN 


44 


p = Q; FOR C — 70 7s W — B(C) : X = ClOsY — I + HtZ = J + X:A1 — 0: IF 




A ( Y . Z ) < > Q THEN 50 


45 


AI - AI + i:Y - Y + W:Z * Z + Xs IF A(V f 2) = P THEN 48 


46 


IF ACY. Z) .= THEN 50 


47 


GOTQ 45 


48 


R - R + Ai: IF U < ) 1 THEN 50 


49 


Y = 1:2 — J; FQFv Ol = TO Ai:A(Y»Z) = P:Y = Y + yJ:Z = Z + X; NEXT 


50 


NEXT : RETURN 


5.1 


FOR I = 1 TO 8: FOR J = 1 TO 8: IF A(I,J) < > THEN HCOL0R= D(A(I, 




J).+ 1): DRAU 1 AT J * 30,1 *■ 17 + 1 


E^*-j 


NEXT : NEXT : RETURN 


ET"? 


I = ■■- IsJ « I: FOR C - 1 Tu 2: GET C*:G - ASC <C*) : IF 47 < G AND G < 




58 THEN I ~ G - 48: GOTO 55 


54 


IF 64 < G AND G < 74 THEN J = G - 64: GOTQ 55 


ETET 


PRINT C*" " 5 : NEXT : PRINT " " : RETURN 


56 


VT AB 24; IN VERSE : PRINT CHR$ (7 H "FALSCHER ZUG ! NUR 0-8 UND A-H " : 




NORMAL s FÜR Di = 1 TO 3000: NEXT : VTAB 23: PRINT Ef 


^7 


VTAB 21: PRINT "EINGABE "mi* + l) ,ä? S ZUG -•-> *' ü : POKE 36, PEEK 




(36) - 5: GOSUB 53: IF I < OR J < OR I > 8 DR J > 8 THEN 56 


58 


IF I < > THEN 62 


59 


VTAB 24s PRINT "LAESST "D*(P + 1 ) " DIESEN ZUG . AUS ?";: SET C*s IF C* - 




"N" THEN PRINT "NEIN": FOR Dl - 1 TO 2000: NEXT : VTAB 23: PRINT ES: 




GOTO 57 


Ü'-' 


PRINT "JA": FOR Dl = 1 TO 2000: NEXT : VTAB 23: PRINT E£: IF H « 1 THEN 




H ss ~ H: RETURN 


g i 


H - 1: RETURN 


VJjU 


IF A<I,J) = THEN 64 
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fit* 2-4" i •"■! "•'._!"'' L'£l 












;- i "• !-r 



QUSUB 41 u IF 5 := 1 THFN 






68 GOTO 57 

THEN 83 
72 U — - i; GOSUB 44: IF R = ü THEN \ 
74 IF J = i DR J — 8 THEN R = R + L 

79 IF R < gl THEN 33 
SO IF R > Bi THEN 82 
31 IF RND (1) '> »5 THFN 8a 

83 NEXT J„Is IF Bi > THEN 88 

84 IF N - THEN 86 

35 hi =:: Q. GOTO 70 

86 VTAB '24s INVERSE : FEINT D$ (F -f 15 

RETURN 
97 H — t : RETüPhl 










+ 48) i: " CHR$ (J + 



>ü 



■i \ = V, 



'-" 1 



R" i IF R y - 1 THEN PRINT !! HTtIME 

,63,63, 63 , 1 1 9 „ 45 , 45 « 245 , 59 , 7 „ „9, 62. 14 54 , 1 90 45 5 „ . 98 .45.21 246 191 
, 23, 46» 45, 45, 0. 45, 45. 30 23 21 21 246 63 7 32 



30 - 54 . . 4 i.! .. 45 2 



-■_ ,t l| .1., i ■..-! II w -.„• I, 
'.•'iX i f~. •': ".-' \ 1 1 P £i.~: t= i "'-! 



,77. 241 . 63.55, 77,49, 223,51 .45, 45. 0. 10, 45, 21. 223, 51 ,54. 1 10, 9. 30,63 
, 42 . 1 73 » 223 . 1 iö , 9 . 254 , 27 . 110,9, 30 . 223 . 46 . 45 , . 42 , 45 „ 245 
DATr 219, 54 , 45 . 245 , 27 » 54 , 45 .45.5. , 42 , 45 , 245 , 219, 54 , 45 , 245 . 27 < 54 
. 1 45 » 245 219. 54 . 54 .. 1 4 .. 4Fi .. 37 . 3A .. A3 . O .. '! OA . 9 . 2F>4 .. 27 1 1 . 9 . A7 . A3 .. F-fS 
&Q ??7 er,1 77 i 7 AR 
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Disk-Menü-Generator 



Dieses Applesoft-Programm er- 
stellt für jede beliebige Diskette 
ein Menü-Programm, das auf 
Knopfdruck beliebige Programme 

startet. Nach dem erstellen des 
Menü -Programme s, kann man dieses 
mit „SA VE NAME" auf die Diskette 
bringen. Der Name sollte so gewählt 
werden, das das Programm nach PR#6 
immer gebootet wird. 

Start des Generators: 

1. RUN MENÜ GENERATOR 



2. Die entsprechende Disk einlegen 
und Taste drücken ' 

3. Editiermodus (siehe unten) 

4. Menü Programm ist im Speicher 
und kann mit SA VE... abgespei- 
chert werden. 

Ediliermodus: 

Es erscheint der erste Filename auf der 
Diskette. Soll dieser im Menü gleich 
bleiben so bestätigen Sie RETURN 
Soll der Name im Menü anders lauten 
so geben Sie die neue Bezeichnung ein 



und drücken RETURN. Soll das Pro- 
gramm nicht im Menü aufgeführt wer- 
den, z. B. bei Unterprogrammen, Grafi- 
ken usw., so geben Sie einfach das 
folgende Zeichen ein: „-" RETURN. 
Nun kommt der nächste Filename und 
das ganze wiederholt sich. 

Der Menü-Generator achtet darauf 
das Applesoftprogramme mit „RUN" 
Maschinenprogramme mit „BRUN" 
und Text files mit „EXEC" gestartet 
werden. 



SO SIEHT DAS MENÜ AUF DEM SCHIRM AUS: Beispiel eines Listing, das vom Programm erstellt wurde. 
Das Listing des oben abgedruckten Menüs sieht wie folgt aus: 

1 DIM M*(100) 

10 HOME 

20 PRINT "****** DISK-MENUE-GENERATQR ****** '« s PRINT ! PRIIMT Z PRINT 

23 FLASH S PRINT " DISKETTE EINLEGEN ! ! ! " ? 

100 INR* = '"* 

110 VS « REEK (106) * 256 + PEEK (105) 

120 POKE VS + 2,240: POKE VS + 3, 14! PDKE VS + 4,150 

125 SET W*S IF W* - "" THEN 125 

126 NORMAL : W* » " " : HOME 

130 REM LOAD RWTS CONTROL ROUTINE Sc IOB AT *300 TO *319 

140 DATA 169, 3,160, 9,32,217, 3, 96,0,1,96, 1,0, 17, 15,251 ,183, 0,150,0, 0,1,0, 2 

54,96, 1 
150 FOR I = 768 TO 793 
160 READ X: POKE I , X 
170 NEXT I 
180 BL* « "" 
190 FOR I = 1 TO 40 

200 BL* = BL* + CHR* (160); NEXT I 
210 DIM N*(105> , S*<105) ,T*(105) ,L*U05) 
230 D* = CHR* (4) SB* « ' CHR* (7) 
240 .TOB = 777: T « 64;; PL « 15 
250 RB « - 27136: REM READ BUFFER 

260 CS « IOB + l:CD = IOB + 2:TRK = IOB + 42SEC « IOB + 5 

270 VOL = IOB + 14U OS - IOB + 15: OD = IOB + 16: Fl - RB + 1 1 : F7 - RB + 221 
320 S « PEEK ( - 18455) / 16: D = PEEK ( - 18454) :K = 
330 POKE S,S * 16: POKE CD,D 
340 POKE TRK, 17 
350 F « 496: P « i;c = 

360 TEXT : PRINT " ### DISK-MENUE-ßENERATOR ###"! PRINT 
490 FOR X = 15 TD 1 STEP - 1 
500 POKE SEC,X: CALL 768 
510 ZZ = - 34 

520 FOR Y * Fl TO F7 STEP 35 
530 ZZ « ZZ + 35 

540 Z = PEEK (Y + 33): IF Z = THEN 690 
550 C « C + 1 



560 IF PEEK (Y) » 255 THEN N*(C) = 

570 F = F - Z 

580 S*(C> « STR* (Z) 

590 IF LEN <S*(C)) « 1 THEN S*(C) : 

600 IF LEN (S*<C)) =: 2 THEN S*(C) 

610 Z = PEEK (Y + 2):L*(C) = " " : II 

620 IF Z = THEN T*(C) « "T" 

630 IF Z = 1 THEN T*(C) « "I" 

640 IF Z == 2 THEN T*(C) - "A" 

650 IF Z s 4 THEN T*(C) = "B" 



1 



00 TO 670 



"00" + S*(C) 

"0" -i" S*(C) 

Z > 16 THEN L*(C) 



Z = Z - 128 
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655 IF Z « 16 THEN T*(C) 

660 N*(C) = NID* <INP*,ZZ 

670 NEXT Y 

680 NEXT X 

690 LX = C / PL; IF C 



"R" 
30) 



700 V* - 
710 IF 

720 IF 
730 F* = 



STR* ( PEEK 



790 
793 
795 

800 



822 
830 



> L7. * PL THEN L7. * L% + 1 
(VOL) ) 

LEN (V*) « 1 THEN V* = "00" + V* 
LEN (V*) » 2 THEN V* = "0" + V* 

STR* (F): IF LEN <F*) = 1 THEN F* = "00" + F* 
LEN (F*) =2 THEN F* - "0" + p$ 

PRINT "VOLUME NR. "V*" FREIE SEKTOREN: "F*: PRINT 
1 TO PL 

PL + I) > c THEN 810 

* PL + I) « "1" THEN PRINT CHR* (T + 1)5» 

NORMAL 



'DELETED FILE" 



740 IF 
750 : HOME : 
760 FOR I = 
770 IF (J * 
780 IF N*(J 
: PRINT 
Z - 1 
IF N*(Z) 

z « z + 1 

REM 
810 Q = 10: D* « CHR* (4> 

820 FOR I = 1 TO Z - 1 

IF N*(I) = "1" THEN 860 
VTAB 5J PRINT " 



.INVERSE 



•- "" THEN 800 

GOTO 793 



PRINT 



840 VTAB 5: PRINT "FILE NAME : "N*(I> 

845 HTAB 13: PRINT N*(I);2 HTAB IS VTAB 7 

850 INPUT "MENUE NAME: " 3 M* < I ) 

855 IF M*(I) = "" THEN M* < I > = N* ( I > 

860 NEXT I 

870 HOME 

871 FLASH : PRINT : PRINT : PRINT S 
LT ! " 

872 PRINT : PRINT : PRINT S HTAB 15 
900 PRINT D*"0PEN MENUE. FB" 
910 PRINT D*"WRITE MENUE. FB" 
915. PRINT "NEW" 
920 PRINT "1 HOME:?" 5 CHR* 



PRINT "DAS MENUE-PROGRAMM WIRD ERSTEL 
PRINT "AUGENBLICK": NORMAL 



- 1 

THEN U 
THEN U 



(34) ?F*5 " :?" 

929 U = 

930 FOR I = 1 TD Z 

931 U » U + 1 

933 IF N*(I) ~ "1" 

934 IF M*(I> = "~" 

935 PRINT Q"?" CHR* (34)5 
980 Q « Q + 10 

990 NEXT I 
1000 PRINT Q"?J 
1010 Q » Q + 10 
1020 PRINT Q"GET E*: IFE* 
J * Q 



(34)5 "DISK MENUE 1,0 



FREIE SEKTOREN:"; CHR* 



~ U • 

» U • 

CHR* 



l: 

• is 

(64 



GOTO 990 
GOTO 990 
+ U)5" — 



5 CHR* (34) 3" BITTE WAEHLEN 



"M*(I)5 CHR* (34) 



CHR* (34) 



1024 
1025 Q 
1030 Q 
1039 U 

1040 
1041 U 
1 045 
1046 
1050 
1055 
1060 
1 070 



CHR* (34); CHR* (34) 3 "THEN" ß 



Q 

Q 
= 
FOR I = 

U + l 
IF N*(I) 
IF M*(I) 
IF T*(I) 
IF T*(I) 
IF T*(I) 
IF T*(I) 



10: 
10 



PRINT Q" 



TO Z 



-• 1 



THEN U - 
"-" THEN U = 
"A" THEN B* 
"B" THEN B* 
"I" THEN B* 
"T H THEN B* 



- l: 

- l: 

"RUN ' 
"BRUN 
"RUN ' 
"EXEC 



GOTO 1090 
GOTO 1090 



50 



Computronic 




1080 PRIIMT Q"IF E*=" CHR* (34) ? CHR* (64 + U) 5 CHR* (34) 5 "THEN ?C 

HR*(4)S" CHR* (34) ;B*?,N*(I) 5 CHR* (34) 
1090 Q = Q + 1; NEXT I 
1100 Q = Q. + ?: PRINT Q"RUN" 
1110 PRINT Q + 1"REM" 

1120 PRINT Q + 2 "REM ***** MENUE 1.0 *****" 
1130 PRINT ß + 3"REM ** COMPUTRONIC **" 
1135 PRINT "HÜME:VTAB6:?" CHR* (34) "MENUEPROSRAMM IST IM SPEICHER !" CHR* 

(34) 
1140 PRINT "DELETE MENUE. FB" 
2000 PRINT D*"CLOSE MENUE „FB" 
2100 PRINT D*"EXEC MENUE. FB" 



ÜISH MENUE 1,0 FREIE SEKTOREN'- 129 



A - 


- -- 


s - 


- ADVENWRE LAND 


c - 


- VOODOO CASTLE 


v - 


- MATHEMATIK I 


£ - 


- ZONE IE- ISLAND 


F ~ 


~ RIBBIT 


6 - 


- TELEFON 



BITTE PiAEHLEN 



1 HOME : PRINT "DISK MENUE 1.0 FREIE SEKTOREN: " 129: PRINT 

10 PRINT "A " 

20 PRINT "B — ADVENTURE LAND 

30 PRINT "C — VOODOO CASTLE 

40 PRINT "D — MATHEMATIK I 

50 PRINT "E — ZOMBIE-ISLAND 

60 PRINT "F — RIBBIT 

70 PRINT "G — TELEFON 

80 PRINT : PRINT "BITTE WAEHLEN : "5 

90 GET E*ü IF E* * "" THEN 90 

100 PRINT 

110 IF E* = "A" THEN PRINT CHR* (4) 5 "RUN HELLO 

ii 

111 IF E* « "B" THEN PRINT CHR* (4) ? "BRUN ADVENTURE LAND 

112 IF E$ = "C !l THEN PRINT CHR* (4) 3 "BRUN VOODOO CASTLE 

n 

113 IF E* = "D" THEN PRINT CHR* (4) 5 "RUN MATHEMATIK I 

it 

114 IF E* = "E" THEN PRINT CHR* (4) 5 "RUN ZOMBIE-ISLAND 

ii 

115 IF E* « "F" THEN PRINT CHR* (4) 5 "BRUN RIBBIT 

■f 

116 IF E* = "G" THEN PRINT CHR* (4) ? "RUN TELEFON 

ii 

126 RUN 

127 REM 

128 REM ***** MENUE 1.0 ***** 

129 REM ** COMPUTRONIC ** 
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Ihre Aufgabe in diesem Spiel ist es r 
durch Springen mit den blauen 
Steinen, ein verzwicktes Problem 
zu lösen. 

Es darf jeweils nur ein Stein über- 
sprungen werden, und auch nur dann, 
wenn hinter diesem Stein ein weißes 
Loch frei ist. Außerdem dürfen Sie nur 
senkrecht oder waagerecht über den 
Stein springen. Sprünge über Eck oder 
diagonal sind nicht erlaubt. Die über- 
sprungenen Steine werden entfernt. 
Können Sie nicht mehr springen, dann 
werden die restlichen Steine als Feh- 
lerp unkte angerechnet. 
Und jetzt zum Problem: 
Sie müssen so geschickt springen, daß 
erstens nur ein Stein übrigbleibt (1 
Punkt) und zweitens dieser Stein am 
Schluß genau im mittleren Loch des 
Spielfeldes sitzt (0 Punkte). 
Damit Sie einen besseren Überblick 
über den Spielablauf bekommen, wird 
Sie der Computer durch das erste 
Spiel führen. 
Und nun viel Spaß! 

EINGABEN 

Protokoll: 

Über die Taste >P< können Sie sich 



jederzeit sämtliche Züge anzeigen 
oder ausdrucken lassen, ' auch wäh- 
rend eines Spiels. 
Neues Spiel: 

Wenn Sie die Taste >N< drücken, 
beginnt ein neues Spiel für Sie. 
Ende: 

Drücken Sie die Taste >E<, wird der 
Programmablauf abgebrochen. 
Auto: 

Wenn Sie die Taste >A< drücken, 
übernimmt der Computer das nächste 
Spiel. 
Copy: 

Drücken Sie während eines Spiels die 
beiden Tasten >CO< dann wird der 
momentane Bildschirminhalt ausge- 
druckt. 

Leistungskurve: 

Nach jedem Spiel haben Sie die Mög- 
lichkeit, durch Drücken der Taste 
>L< Ihre Gesamtleistung in einem 
Schaubild zu betrachten. 

EINGABE 

Geben Sie zuerst das kurze Programm 
(Zeile 1 und 2) ein. Speichern Sie das 
Programm mit GOT02 auf einer Kas- 
sette ab. Nachdem Sie jetzt das Pro- 
gramm gelöscht haben, geben Sie das 



zweite Programm ein. Starten Sie das 
Programm und warten Sie, bis in der 
unteren Hälfte des Bildschirms das 
Wort >ENTER< erscheint. Brechen 
Sie dann das Programm wieder ab. Das 
zweite Programm sollte jetzt unmittel- 
bar hinter dem ersten Programmteil 
mit GOTO 4000 abgespeichert wer- 
den. 

LADEN 

Laden Sie das erste Programm mit 
LOAD" oder LOAD 'Solitaire'. Das 
zweite Programm wird jetzt automa- 
tisch geladen und gestartet. 



Bsp: Bild 2 



P u n k t e 



v o n : «: 



PROTOKOLL 


1. 


Zugs 


d2d4 


■-y 


Zugs 


f3d3 


3 . 


Zugs 


d4d2 


4. 


Zug.; 


b4d4 


5 » 


Zug s 


b3d3 


6. 


Zug; 


H=5f3 


7. 


Zug; 


el©3 


8. 


Zug: 


c6c4 


9. 


Zug; 


e5c5 


10. 


Zugs 


e7e5 


11. 


Zuq s 


c2e2 



12. 


Zug: 


©3c3 


13. 


Zuq : 


d4b4 


14. 


Zugs 


clei 


15. 


Zuq : 


e4ei 


16. 


Zugs 


g3e3 


17. 


Zuq s 


e<bc6 


18. 


Zug: 


c7e7 


19. 


Zug: 


b5d5 


20. 


Zuq: 


e2e4 


21. 


Zug s 


gSg3 


.--, /-j 


Zugs 


a4c4 


23. 


Zug : 


c4c2 



Laist u n g s K u r 



P 
Li 
N 
K 

T 
E 



J 

X - 
© 

10 
1£ 
1.4. - 

15 t 
18 
20 + 

eiS "■ 
'«£ 4- 



/ \ / 



1 3 S 



E NT E R 



■3 1 
1 



1 1 



2 2 2 
13 5 

sp reu 



Wichtig: 

U S R - D E F X N Er. D - G R R R H X C S 



H 

c 

E 
i'.S 
I 
K 
M 
Q 
Q 



E3 

D 
F 

H 
•J 
L 
N 
P 
R 
T 



1 BORDER 1: PflPER 1: INK S : C 
LS : LORD "SO Li tai f e"SCREEM* : P 
RXNT RT 17".. 0.; : MERGE "Solitaire" 

: GO TO 10 

2 SflUE "So Li tai r e " LINE 1 

10 DIN i (S0.,4) : D IM h (25) : LET 
Le=l: LET au »0: GO SUB 880S : GO 
TO 4-100 

IS LET au=0 ■ . 

• 20 DIM a (. 1 1 .. 1 1 3 : DIM 45(31.4-): 
D I M b $ ( 1 .. 2 ) : DIM C $ ( 1 , 4 ) : L ET e 
n «0 

100 GO SUB S660: LET ZU=0: BORD 
ER 1: PRPER 1: INK S: CLS : PRIN 
T PRPER 5; IHK 1,;RT 0,B; " 



120 FOR 2=1 TO 1"3 STEP 
PRPER 5j INK lJflT 2,Sl" 

9& " .; RT 2 + 1 .. S ; '" '^BJiF "%&' IfÄF 

.. S .: " ": NE XT z 

135 RR INT PHPER 5; INK 

.: " ' " ; RT 6 , 1 © ; ■ * 

150 FOR 2 ="? TO 13 STEP 
PRPER S; INK 1 .; RT z .0; " 

RT 2 , 16 .; ".Jfe *£&".: «T 2 + 1 , 

F" ; RT z+i,i6i"W W •' ; rt 

" .; RT 2+2,16: " 







RR INT 

RT 2+2 

RT © , 

P R I NT 



+ 2,0.; " 

NEXT 
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170 GO SUB 6000: PRINT PflPER S; 

INK 1; RT 10,10; " '"-•.." ; RT li, lO; "V 

.■'"•: GO SUB 6020: LET LsmUSR 4-0000 

19© PRINT PRPER 5; INK 1 .: RT 1,6 

; ".-,".: RT 1,15; " ., " .; RT 2 .. e ; " M " ; RT 2 

■ 15 ;"■"■" ; RT 4. , © ; ".-.■■.; RT 4- , 15; " .-, " .; R 

T S , © ; " * L " ; RT s ., 15 ; ■■ — ■■ 

30© PRINT PflPER 5.; INK IjflT 7* ,, 

; ■• .„ '* ; RT 7,21; ".-."; RT s , o .; •'-"•; rt s 
',£1; " - " ; RT 10,0;"/'; RT 10,S1;"/' 
; RT 1 1 ,. .; ■•**■*■; rt 11,21; ..--■■; p-p 13 r 
ö ; " er " ; RT 13,21; " er " .; RT 14 , ; •••-'••; r 

T " 1 4- ., 2 1 ,; 

2 10 PRINT PRPER 5; INK 1: RT IG, 
© ; "*=".: RT 16,15; " c "; RT 17,6; " u ";fl 
T 17 , 15; " w " ; RT 19,©; "-,".: RT 19,15 
; ■ ■ _, ■ ■ ; RT 2 0,6j " ' " j RT 20, IS; " '' " 
' 212' GO SUB 6 00: LET PU>3S: PRI 
NT RT 3 , 19 ; p u ; " Pu n k t e " : PR TNT R 
T 1, 19; Le; ".";TRB 23; "Spiel" 

2 15 IF au=l THEN GO SUB 2600: G 

Cl x O 2 1 © 

217 I F enae THEN I N PUT "Zug \? o n 
: " ; b* •: l) ; 

218 !_ ET C * ( 1 , 1 :• = b * i: 1 , 1 3 : L_ ET c * 
i:i,S» =b*Cl,2) 

22 2 IF en=l THEN IN PUT INK 1.: P 

RPER G ; " P " ; INK 6 ; PRPER 1 ; " r o t o 
KO L i. " : INK l; PRPER ©; "N" .; IN 
K s; PRPER l;"eues Spiel "; IN 

K l; PRPER ©; "E"; INK S; PRPER 1 

;"nde " ; INK 1 ; PRPER s ; " ' L ■ * ; I N 

k G .; PRPER l; "eist u n g a K o r v e " ; 

INK l; PRPER 6;"R"; INK 6; PflPE 

R l ; "u to: " ; b m i l :« 

223 GO SUB ©10®: IF b* (1,1) ="P" 

_THE N _GO SUB 700: G O S ÜB 1000: G 

'" 22 4- IF ' e n - 1 RND tbS(l,l) = " n " OR 

b*Cl,l)="a") RND le>SS THEN G O 
SUB 7 10: GO TO 2 22 

225 if enal rnd b« i: i , 1:1 -"n ■■ the 

N GO SUB 700: GO TO 16 

22© IF en=l RND b$(l,U ="l" THE 
N G O S ÜB 7 00: G O S U B 2000: G O T O 

22 7 IF en=l RND b* (1, 1) =*■'£" THE 
N G O S ÜB 7 0: ST O P 

2 2 © X F en»l RND b$ (1,1) ="a" THE 
N GO SUB 700: LET 3 u = 1 : GO TO 2 

2 29 IF er. =1 THEN GO SUB 7©©: GO 

TO 2 22 

2 30 LET ©1=0: LET d 1 =0 : LET d2= 
0: LET kl -CO DE b*(l,l)-96: LET K 
2 -CODE b * ( 1 , 2 ) -4© 

290 IF kl<l OR K 1 > 7 OR k 2 < 1 OR 

K2>7 THEN GO ©ÜB 7 10: GO TO 2 15 

30 I F a >: K 2 -I- 2 , k 1 + 2 ) ■ = 2 O R a (K2+2 
,Kl+2) =0 THEN GO SUB 710: GO TO 
215 

3 10 PRI NT RT 18,19,"ZU g V o n : ;_' ; 
b$(l) ; RT 19,19;" " : i j O 

SUB 700 

32 IF au=l THEN GO SUB 2600: G 

O T •_' 3a7 

32 5 INPUT "nach:"; b$ <: 11« ; 

327 LET C$ll,3J *b*(l , 1 ) : LET C * 

( i , 4 ) =b*ii,2 :i 

330 LET n leCODE b* (1 , 1 > -9© : LET 
n 2 = C O DE b EM 1 , 2 J -48 

35 IF n 1 < 1 OR n 1 >7 OR n 2 -; 1 OR 

n2>7 THEN GO SUB 7 10: GO TO 2 15 

3 ©0 I F a C n 2 + 2,nl+2) =1 O R a i n 2 + 2 
,nl+S)=0 THE N G O S U B 710: G O T O 

2 15 

3 © 5 I F rt 2 - k 2 s= THE N L ET dl « R BS 

(ni- k i :■ 

370 IF nl-Kl=0 THEN LET d2=RBS 
tna- k 2 ) 

3 7 5 I F d 1 = 2 THEN L ET el=el + l 

3 S I F d 2 = 2 7" H E N L. ET £ 1 = 6: 1 + 1 
3S5 IF ■£ 1 < > 1 THEN GO SUB 7 10: G 

O T O 2 15 

390 LET sl=nl-l;l: LET ■=■ 2 =Ti 2 -- k 2 

4-00 IF S- 1<0 OR £-2<0 THEN LET t. 1 

- _ 1 

4 05 IF S-1>0 OR S2>© THEN LET tl 

= 1 ' 

4 2® IF Kl=nl THEN LET V l = K2 + tl:. 

IF a (V 1+2 , k l+2:i < > 1 THEN GO SUB 
7 10: GO T O 215 

422 IF k:l=nl THEN L.ET a ( V 1 + 2 , k 1 
+ 2> =2: PRINT PRPER 5; INK 1 ; RT '( 
v 1 - 1 ) * 3 + l , (kl-l) #3 + 1; " ' V ; RT «: v 1 
-1)'*3+S, [Kl-D *3 + 1 .; " V„./ ' ' 

425 IF K2=n£ THEN LET V 1-Kl+tl: 

IF a t k24~2 , V 1+2) < > 1 THEN GU SUB 
7 10: GO TO 215 

4 3 I F k 2 sa n 2 THE N LET 3 ( k 2 + 2 , V 1 



+ 2 ) = 2 : PRI NT PRPER 5 j I N K 1 ; RT f. 
K 2 - 1 ) *3 + 1 , i v 1-1) #3 + 1 ; " ' "V .: RT (. k 2 

- 1 :i * 3 + 2 , c v 1 ~ 1 ) * 3 + 1 ; " '*-._,.■'' ' ' 

50 PRINT RT 19,19; "nach: "; 
b$ i 1) : GO SUB 700 : LET a t K2+2 , k 1 
+ 2 :• = 2 : L ET 3 (n2+2,nl+2) «1 

522 PRI NT PRPER ©■; I N K 1 ; RT C K 2 

- 1 ) # 3 + 1 , < k 1 - 1 :• * 3 + 1 ; '* ' '-\" ; RT < k 2 - 1 

) * 3 + 2 , (Kl-1) * 3 + 1 ; " V..,/ ' ' 
5 2 3 PRI NT P R PER 5 ; I N K 1 ; RT l n 2 

- 1 :» *3 + 1 , (nl-l) *3 + 1 ..;.._'_ _'_JMn," ; hT f na-l 
5 * 3 + 2 , (nl-l) * 3 + l ; "*Wr ' ' 

532 LET pu=pu-l; PRINT RT 3,19; 
■ ■ ; RT 3 , 1 9 .; p u 

5 35' IF PU=1 THEN PRINT RT 3,22; 
"Punkt " 
5 4 L ET ZU=ZU+1: LET d$(ZU) »c*( 

1 '1 • G O S U B 15 00: G O T O 2 1 5 
700 BEER .1,10: RETURN 

710 BEER .1,20: BEER .1,20: RET 
URN 

100 LET L=USR 5 000: POKE 50001 
. © : POKE 5 000 2 ,64: POKE 5 007 , 40 

POKE 500 0© , 160 
10 20 CLS : PRI NT ,l V,- c < t o k o l l" ; RT 

■X , © ; • • - „ ' ■ : IN P UT "au s d r U C k 

eh?' (U-'N) "; f" * : GO ©ÜB 700 

1027 IF f*="J" THEN LPRINT "PROT 

OKOLL " : LRR INT " " 

10 3 F O R z a 1 T O ZU 

1040 IF Z<=2© THEN PRINT Z ; " . " ;T 

RB 4; "Zug : " ; d$ (z) : GO TO 1©4© 

10 45 PRINT RT z-19,15; " I " ; z ; " . 

" ; T R B 22; "Zug: " ; d $ ( z ) 

104© IF f$="j" THEN LPRINT Z ; " . " 

; T R B 4; "Zug: " ; d $ •: z ) 

1S4S MEXT Z 

104 9 PRI i-\T RT 21,21; PRPER 6 ; I N 
K l; FLRSH l; "ENTER" .; RT 16,21;"" 

105 LET b$»:i) ="": PAUSE 0: GO ■■■=> 
ÜB 7 00 

1110 LET L =USR 5 000 0: POKE 500 01 
■40: POKE 50002,160: POKE 50007, 
: POKE 50008, ©4 : RETURN 
150 FOR >-z = 3 T O 9 : FOR V =3 T O 9 
152© IF a C v ■ y ) =© OR *a ( v , y ) =2 THE 
N GO TO 157© 
153 IF a C V , y+i 

2 THE N R ET U R N 
15 4© I F a C v , y - 1 



2 THEN R ET U R N 

155 IF a f. v +1 , y 

2 THE N R ET U R N 

15 6 I F a f. V - 1 , y 



= 1 
) = 1 

> =1 
;i =1 



RND 
R N D 
RND 
RND 



a 1. v 
a »: v 
a ( v + 2 



y +«; 

y —2 

y 

y 



2 THE N R ET U R N 

157© NE KT V : NEXT y 

157 5 IF pu=l RND a ( © , 6 ) =1 THEN L 
ET" P u m : F O R O ss 7 T O 1 ST EP - 1 : B 
ORDER ö : GO SUB 700: GO ©ÜB 710: 
NEXT o : PRINT RT 3., 19; pu; " Punk 
t e " 

1580 LET h (Le) =P U : LET L e = l e + 1 
1 89 PRI NT RT 3 , © ; FL R S H 1 ; " E N DE 
": FOR z =« 1 TO 20: GO SUB 7 10: NE 
KT Z : LET e n = 1 : RETURN 

2000 C L © : PRI NT "Le i s- t u n g s k u r v e 

» , ,•• '•: L ET p * =s ' ' p UN 

KTE" : LET p l «3 

2©10 FOR z «0 TO 2 8 STEP 2 

2©15 IF z>=10 THEN L ET P l =2 

S02 IF ZC=10 THEN PRINT RT Z ,■' 2 + 

3 . © ; p * ( Z ,•- 2 + 1 T O Z s 2 + 1 ) 

2 03© PRINT RT Z/2+3,pl;Z: PLOT 3 

5 , 1 4 © - 4 * Z : D R R U 4 , © : N E XT Z 

2 04 5 PLOT 37,148: DRAU 0,-112: L 

ET p * - " 1 3 5 7 9 1113 15 17 1921232 

5": FOR Zal TO 25 ©TER 2: PLOT 3 

©+©*Z .27: DRRU 0,4: PRINT RT 19, 

z + 4 ; p $ ( z T O z ) ; RT 2 O , z + 4 ; p $ f. z + 1 

TO Z +i:i : NEXT z 

209© PLOT 44,29: DRRU 192,©: PRI 

NT FHT 2 1,25; "SPIEL" 

2 09 7 FOR Z=l TO 12: PRINT PRPER 

2 ; RT Z +5. , 5 ; " 

" : NEXT Z 
2 100 PLOT 44, 148-4*h ( 1 ) : FOR Z=l 

TO t.s-2 
2 10 5 IF Z =25 THEN GO TO 2 15© 
2 110 D R R W 8 ,' (h (Z) — h (Z + 1 ) ) * 4 : NEX 
T Z: PRINT RT 2 1,©; PRPER ©; INK 

1; FLRSH 1; "ENTER"; RT 0,31;"" 
2 16© PRUSE ©: GO SUB 700: RETURN 



25©0 



S- U = 1 : 



FOR 



LET 
'< =3 TD 9 
2502 IF 3 (X ,Z) =0 OR 

N GO TO 2515 

2S©4 IF 3 (X , Z+l) =1 HND 

S THEN L ET z Z 1 = X 
O SUB 3©00 



=3 TO 9: FOR 
a ( X , z ) =s2 THE 

LET ZZ2=Z-+-2: G 
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4-0 BORDER 1: 

L.S : RR INT FIT 





4-0 4.0 RR INT 

nn " ,; AT 1 s . 
" ; RT 13,1; 
rd i n g s: n — 2 " 
4 0S© RR INT 

1; FLASH 
4.09S SflUE 
O T O 9999 
4X00 R R I NT RT 21,,9; I NK 

&'; FLRSH 1; " ENTER 
.. ; " •' : PAUSE 
4120 INR LPT "Eenoetigen 
Erklaerung 7 (. -J s N ) : " ; t $ 

4 130 IF t$="J" THENGO 



RT 11..®.; "Mario h e c K m a 

5 .; "Hei i b f o n n e r Str. is 

"70S2 LeinfeUen-Echte 

.; RT 15,10; "@ 1 9 3 4" 

RT 21,9; pRPER © .: INK 
1; "BITTE URRTEN" 

"SöLitaire"SCREEN$ : G 



i ; 



TO 



PRPER 
RT 19 



eine 

;@00 



4 14-0 G C 


TO 


IS 






















C L. 


- = "i 


RR INT 




"Ihr 


e 


flu 


f et 


.") 


b e 


1 


n 




•dies e ITi :-■ p 


i e 1. i 


S 


t e 


S • 




d u r 


ch 




&P 


r i 


n 


■3 


e n m i 


t d fe- 


n b L a 


Li 


— e 


n 


:~ 


tei 


n e 


n 


e 


i n 






v e r z M.I 


ie K t 


e s P r 


!~i 


- b 


i «=• 


rn 


Z'U 


i 


n 


P* s 


p- n 


. 


* p 


: PRI NT 






















GST 





U@ PF 


INT 


"ES d 


■a 


r f 




■ i 


e '.«.' e 


i 1. 


■=■ 




n u 


1 




e i n 


a tei 


n u e b e 


r 


SP 


r u 


n 


•3 e n 




it.i 


e r 


d e 


1 1 


, 


u n d 


a u c 


b n u r 




d a 


n n 


, 


tu e n n 




h i 


l'"l 


t 


e r d 


i e s e 


ri'i Stei 


r'i 


e 


i n 




w e i 


s s 


p- 


s 


l. o 


c 


h 


f r e i 


ist 


. R U £■ 2- 


e 


rd 


e ro 




du 


e r 


r 


e n 


O 


1 


e 


n u r 


s e n K 


-rech 


t 


o 


de 


r 


w a 


ag 


e 


r e 


ch 


t 




u e be 


i- d e 


n S t e i 


n 


S- 


P r 


i 


nge 


n . 




« 


P r 


l_l 


e 


nge 


u e be 


rEc K 


D 


de 


r 


d 


iag 


o n 


a 


i,, 




n 


d 


nich 


t e r 


_ * • 




















p. 


ö 


3 R R I NT 


"La u b 


t 


„ 


Di 


e 


u e 


be 


r 


£■ p 


r u 


fi 


q 


e n e n 


■» tei 


— n e w 


e 


rd 


e n 




e n t 


fe 


r 


n t 


. 




K 


d e n n e 


n S i 


eni c h 


t 


m e h 


r 


SP 


r i 


n 


cj e 


n , 




d 


3 n n w 


© r d © 


n d i e 


r 


ff. j» t 


t • 


i 


che 


n 




S t 


O i 


n 


& 


als 


Feh 


- L e r p 


u 


n K 


t e 




a n g e r 


£L* 


ch 


n e 


pr 





35 RR 


I NT 


RR INT 


PRPER 


© .; 




INK 


1 


J 


FLflS 


H l ; 


RT 21 




3 


. ,. 


ENTER" 




F- 


RU 


wl 


t 


: e 


LS : 


PRI NT 


* * 


Und 


. j e 


tz 


t 


Z 


u m 



p r o b L e ni 

5 4 PRI NT 
hie K t spri 

u r ei n 5 1 e i 

t :■ u n d z w e i 

S c h l. u s 3 •=! e 



P R I NT 

"Si e m u e s s e n 

— n «g e n , da s s 

n u ebri >g btei b 
-- t e n s diese r 

- n a u i rn rn i t. t 



s o g e s c 
e r s t e fr s n 
t t l P u n K 

5 t e i n a m 
leren loc 



h 

t e 
50 
n e 
de 
d 
s t 

50 



•ss 

©© 

"30 
EX 



d e s. 

y . " 

so 

n b 

n 

3 i e 

e s 

7*0 

F- a s 

FL 
Li = 1 
iZi© 

10 

T -3 



Spiel -Feldes 



itzt i: Pu n k 



RR INT 
esse r e 
S p i e L a 

der 
p i e L f 
RR INT 
s • " ; RT 
fiSH l; 

GOT 

RE S-TOR 

RERD w 
. ftETU 



PRINT 

n. ue be 

blauf b 

C o ro p u t 

u ehren . 

: PRI NT 

2 i , 10 : 

"ENTER" 

U £0 

E 9300: 

e : POKE 

RN 



r — 

e — 
e r 



D a m 
b L i 
k o m 
d u r 

u n d 

'ARE 

PRU 

OR 
550 



i t 
C K 
m e 
ch 

n 

R 

SE 

•g = 
4 + 



d a s 



e ei 
be r 
w i r 

e r 



u n 

& .; 

: 



viel 
INK 

LET 



C3 T 

9 • W 



N 



5020 RESTORE 93 10: FOR d =0 TO T 

6030 RERD WS: POKE 55504+-=» , w e : N 

EXT g ; RETURN 

&100 IF b $ < 1 , 1 :> = " c " RND b$(l , S) = 

"O" THEIM GO SUB 7Ö0 : COPV 

5 110 RETURN 

3500 RESTORE : FOR z=l TO 7': PER 

D Z*: FOR X =0 TO T : RERD X 1 : POK 

E USR Z*+X.. xl: NEXT X: NEXT z 

5 5 4 FOR Z =4 0000 TO 40 155: RERD 

Z 1 : POKE Z , Z 1 : NEXT Z : LET l =USR 

4013S 
i3 85 2 RESTORE 9100: FOR Z=50O©0 T 
O 5 ©SS : RERD Z 1 : POKE Z , Z 1 : NEX 
T Z : RETURN 
555© RE STORE 905© : FOR Z =3 TO 9 : 

FOR x=3 TO 9: RERD Kl: LET 3(2, 
x;-=Xl: NEXT X- : NEXT Z: RETURN 
90©0 DRTR " a " . £55 . £5 5 . IST", 1 £"7. 53 
., 31 , 15 , 3 , " b" , £55 .. 2 5.5 , 254 , 254 , 252 
.. •=: 4- ö .. £ 4 © , 192, " C " , 3 ., 1 5 .. 3 1 , 53 , 1 £ 7 . 
Ifel7 , 255 ,, 255 ., "d " , 192 , £40 , 248 j 252 '. 
254- . £54 . £55 , £55 

«005 DRTR "s " , 192,48,S, 4,2,2 . 1 , 1 
, " t " , 1 , 1,2,2,4,0,4.3, 192 . " u " . ±£S , 
125 ,54,54,32, 16, 12,3 

9010 DRTR 3 3 , 193 .54 , 17 .5 .5 2, £0F, . 
173 , 15© , y3 , £2 5 ,73, 17,3,52 , £05 , 17 

y.ise, 33 , iee , 64 , £05 , 173 , 155 . 33 . a 

23 , 73 , 17 , 15 , 62 , 205 , 173 ,' 15© , 3 3 . 7 . 
b4,205,173, 155,33, 167,80, 17 , 24 
9 02 DRTR 52 , £0© , 173, 155 .33 , 1© . & 
4 , £©5 , 17 3 , 156,33; 170,30, 17 .32 ,62 
,205, 173 , 15© .33 . 13 .54 ,205, 173 '. 15 
6. 3U, 173 . S© ■ i7,4Ö,62, äßR , 173 , isfi 
, 33 , 2©S ,64,205, 173 , 135 . 33 ,240,73 
, 17, 43 ,62, £05 ,173, 15© , 33 ,211,64 
9 03© DRTR £©5 . 173 , 156 ', 33 '. £4:" s s . 73 . 
17 , 56 , 6£ , £©5 , 173 , 156 ,201 ', 6 ,8 ', 2© ', 
1«?^ © A 4 A 2©3_, 135 , 31 , 15 , 251 , ilS» , 26 



9 



=■ , 4 , £©3 , 19 1 , £3 ., 1© , £5 1 , %S3 ,35.11 
, 4 3 , 19 , 36 , 16,230,201 .33 . 120 , £5 5 
, 17 , 136 ,61, 14 , © , £05 , £32 , 156 . 205 . 
24 1 , 15© , 2©5 , 241 , 15© , £05 , 232 \ 15© \ 

©2 , 1 , 129 , 7 9 , 62 ,7 . 135 .32 

^t ? ■?£!*_ 23B , 201 , © , 4 , ©£ ,0,119, 3 
5 , 1&, «iS© ,201,6,4, 2© , 119 , :~:F. , l>=t , 1R 
,250,201 ' ■ " " J " •' - v ~ 

9 5 D RT R ©,0,1,1,1,0,0,0,0,1,1, 

i , © , © , i , i , i , i , i , i , i , i ■ i ; i ' s i ■ J ■ 

1 , 1 , 1 , 1 , 1 , 1 , 1 , l , .. ,, i t i _, x . © , © . © ', 
0,1,1,1,©,© " . 

9 10© DRTR 17,4©, 16© , 1 , © . 27 . 33 , © . 
©4 , 1£© , 18 , 35 , 19 , 1 1 , ©2 ;, © ;. 134 , 4-0 , £ 
, *=!4 , y44 ,62,0, 135 , 4© .2.24., 237 , 2© 1 
9L-50 DRTR 3 , 12, 16 , 3 2 , ©4 , 6 4 . 128 .' 1 

2 3 

9 3 1 © D RT R 8,15,16,0,0,0,0,0 
9 © 9 'S SflUE "So Li ta i re " i STOP 



Human Engineered Software, 150 North Hill Drive, Brisbane, CA 94005 
800-227-6703 (in California 800-632-7979) Dept. C20 



W-*"**"*--»- 




HesWare is a trademark of Human Engineered Software. Facemaker is a trademark of Spinnaker Software. VIC 20 and Commodore 64 are trademarks 
of Commodore Electronics Ltd. Atari is a registered trademark of Atari, Inc. IBM is a registered trademark ot International Business Machines. 
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Computronic 



Looks Like an IBM™ 
Works Like an Apple' 



To a land where fruit 'JA and flowers <fl reign 
supreme, comes the awesome power of the 
Wildcat to challenge their suprem.acy. 

Wildcat is a sleek styled mobife Computer 
designed for your vehicle, boat or aircraft. It 
tooks like an IBM PC™ and is fully Software 
compatible with the Apple II™ product line at a 
(ist price that would put a smile on the face of the 
most frugal Computer buyer. 

But price isn't everything. All those features that 

would cost you hundreds JBHi^^^^M 

ofdollars from our ^k 

competitors, come ^^^^^^^^^^ß 

Standard with Wildcat. 

Let's compare some 

of these features: 



Apple lle Wildcat 



Detachable keyboard 


No 


STD 


Füll numeric key päd 


Option 


STD 


Füll functions keys 


No 


41 


Built in disk Controller 


No 


STD 


Parallel printer port 


No 


STD 


RS 232 serial port 


No 


STD 


Game port 


1 


2 . 


RGB Video out 


Option 


STD 


Composite video 


STD 


STD 


RF Video for TV 


Option 


STD 


CP/M 


Option 


STD 


Hi Res graphics (6 color) 


STD 


STD 


Low Res graphics (16 color) 


STD 


STD 


64KB memory 


STD 


STD 


Half high disk drives 


No 


STD 


Converters for vehicles, . 






boats, and aircraft 


No 


Option 


Aluminum carrying case 


No 


Option 


List price 


$1940* 


$1099.00 




"Computer plus one disk drive 

Warning: This equipment is exempt from compliance with FCC lestmg 
requirements pursuant to 4? CFR 5 6.801 {c) (1) 
Operation ot this equipment in a residential area may cause interlerence. 



For more information on the all new Wildcat, see 
your local Computer dealer or call or write: 

COMPUTER AND 
PERIPHERAL PRODUCTS 



«in 



1530 S. Sinclair 
Anaheim, CA 92806 
(714) 978-9820 



IBM is the regisiered trademark of International Business M« 
Apple is the registered trademark of Apple Computer Ine 
Apple l! is the trademark ot Apple Computer. Inc.. 
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PAINTER ist ein Malprogramm für 
die Grafikstufe 8, Es benötigt min- 
destens 32 KB RAM. 

Die Bilder des Painter sind kompatibel 
zu anderen Malprogrammen wie Mi- 
cro-Painter oder Grafik-Zauberer, je- 
doch nicht zum Koalapad (Micro Il- 
lustrator). 

Nach dem Programmstart sieht man 
kurz, wie das Menue ausgedruckt 
wird, dann wird zur Grafik umge- 
schaltet und nach etwa 3 Sekunden 
erscheint der Cursor in der Mitte des 
Bildschirms. Er läßt sich mit dem Joy- 
stick (Buchse 1 ) bewegen. Wenn man 
eine Weile mit dem Cursor fährt, dann 
wird er schneller. 

Drücken Sie die Taste „1", dann kön- 
nen Sie durch Druck auf den Feuer- 
knopf des Joysticks Punkte setzen und 
Linien ziehen. Nachdem Sie die Taste 
„0" gedrückt haben können Sie wieder 
löschen. 

Mit der Taste „RETURN" können Sie 
zwischen Grafik und Menue-Anzeige 
umschalten. 



Folgende Funktionen stehen zur Ver- 
fügung: 

0,1: Farbe, mit der der Cursor malt. 

2: Linie ziehen. Von dem Punkt, an 
dem zuletzt der Feuerknopf ge- 
drückt wurde bis zum Cursor wird 
eine Linie gezogen. 

3: Parallele ziehen. Es wird eine Paral- 
lele zur letzten Linie gezogen. Der 
Cursor ist dabei der eine Punkt, der 
andere wird errechnet. 

4: Rechts füllen. Der Computer führt 
ein DRAWTO aus (wie 2) und ver- 
längert jeden Punkt der Linie nach 
rechts bis er auf einen Punkt der 
Farbe 1 stößt. 

5: Kreis zeichnen. Der Punkt, an dem 
zuletzt der Feuerknopf gedrückt 
wurde ist der Mittelpunkt, der Cur- 
sor liegt auf der Kreislinie. 

6: Bildschirm löschen. 

7: Farben setzen. Nach drücken von 
„7" geben Sie ein, welches Farbre- 
gister Sie ändern wollen (0-4). Dann 
können Sie mit dem Joystick die 
Farbe (links-rechts) und die Hellig- 
keit (vorn-hinten) bestimmen. 




Wenn Sie fertig sind, drücken Sie 
den Feuerknopf und wählen ein 
neues Register oder gehen Sie mit 
der „Space" -Taste in den Normal- 
modus. 
8: Info-Zeile ein/aus. Über dem Grafik- 
bildschirm werden die Position des 
Cursors (X und Y) sowie die einge- 
schaltete Farbe angezeigt. 
9: Sprung zum Disk-Menue. 
Im Disk-Menue wird der, der eine Dis- 
kettenstation hat ohne weiteres zu- 
rechtkommen. 

Für Besitzer von Cassettenrecordern 
sind nur die Funktionen 2 und 3 inter- 
essant (Bild laden, Bild abspeichern). 
Wenn Sie ein Bild auf Cassette spei- 
chern oder von dort laden wollen, 
dann müssen Sie nach drücken von 
„2" bzw. „3" das angebotene „Dl:" mit 
der Taste „DELETE/BACKS" löschen 
und „C:" und irgendeinen Namen (z. B. 
„BILD" schreiben. Das ist wichtig, 
sonst kommt ERROR 5 (String zu 
kurz). Der Name kann beim Speichern 
auf Cassette bei allen Bildern gleich 
sein. 



1 REM ***#**#*###***###**###*^ 

20 REM * $ 

29 REM * PRINTER :*: 

40 REM * mammmaa . t 

*0 REM * .. von R.OLflHD REYER :*: 

68 REM * RM GIEGENBERG 21.. 6438 UJDWJGSRU 1 * 

70 REM ! -U84 t 

80 REM % % 

90 REM ttt*ttt*tt%tt\mtt*%%^ 

lifl REM t: INITIALISIERUNG 1 

1 2 - POKE 1 6 , P EEK < 1 86)- 36 

1 30 GRAPH I CS = OPEN #3 , 9 , 8 ."E-" 

140 D0L=*PEEK< 560 > ■ D0H-PEEKC 56 1 ) ■ GR~8 

158 M0L«PEEK< 88 > ' M0H-PEEK'' 89 ■• 

160 GOSUB 1260 

1 70 POKE 1 06 , PEEKC 1 06 5+36 

1 80 OPEN #1,4 .. 6 , " K ■ " ■ GRRPH I CS 24 '■ D I M R$< 40 > , FRRR'- 4 > , HEI. ! < 4 ":■ , f": T n*C ?R ":■ 

190 M8L=PEEK':: 88 ) ■ M8H*PEEKf 89 "> 

200 GOSUB 1206 

2 1 EOR J=0 70 4 ■ FRREK J >-■ I MT< PEEKC 708+J V 1 6 ) ■ HE!.. ! ..<. . J V»PFFK<r 7RR+. ! VFRPp<r . I vfc \ f, ■. MFXT 
I 

220 REM t RSSEMBLER-ROUTINE ZUM RUF- 1 

23PI REM t RUFEN VON *CI0* 1 

240 RESTORE 260 

250 FOR J~l T0 28=RERD X-CIÖ*< J)«CHR$(X^-NFXT I 

26 DRTR 1 04 , 1 84 , 1, 04 , 1 70 , 1.94 .■ 1 04 

270 DRTR 1. 57 , 66 , 3 , 1 04,1 57 , 69 , 3 

280 DRTR 104,157,63,3.104,157,73 

290 DRTR 3 , 1 04 , 1 57 , 72 , 3 , 76 , 86 , 228 

3 X b f. 60 ■ V » 96 ■ X 1 ~ 1 6 ■• V 1. « 96 

31.0 REM C JOYSTIck+GRAPHIK-MENUE 1 

320 K»STICK<:0>'ßaSTRIG(0>iIF Q=l RND K<15 THEN STKST+0,?-R.?^RT>4*> ! GnTn :"t40 

330 ST*i 

340 X»X+INT<ST*<<<K«ü5 0R K>6 0R K~7 > RND ■' X<319>)-< < k>9 OR K=19 DR K=ll> RND <.X> 

0>V)+0«2> 

350 Y»S'+INT<ST*(<CK:=5 OR !<=9 OR Ksl3> RND < Y< 191 >>--0- !<-™6 OR K«10 OR k>14> RND ''V 

>fl >) >+0„2) 

360 TF 0=0 THEN 2»C0L 
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370 IE >»',i RHD Y«Y1 THEH 390 

380 TRRP i 1 40 ' DOLOR Z = PLÜT X 1 , Y 1 ' LOCftTE X , Y, Z = X 1. «X : Y 1. =Y 

-t90 TR HP 400 : IF PEEKC 764 >< >255 THEH GET #1 . M = M=M-47 : OH M GOSHR 450 , 460, 480, 500, 5 

20 .< 560 .' 660 • 680 .- 790 .> 1 420 

400 COLOR RBS(?--I > : PLOT X. Y* IF O"~0 THEH XM^X : YMkY 

41.0 TF IHF«1 THEH 1060 

420 TF M=108 THEH GOSUB 1020 

480 GOTO 310 

440 REM C F'RBFN EIN90HRLTEN 1 

450 CÜI..K0 ■ RETURN 

460 COI..-1 : RETURN 

47% REN C LINIE ZIEHEN 1 

480 COLOR CO!.... = PLOT X.. Y : DRRUITO XM . YM : XZ--X • YZ" : Y : 7 -CO!... : PETURN 

498 REM C PRRRRLLELE ZIEHEN 1 

^00 TRRP 590 ■ XM-XM-K X--X7 > ' YM^YM-K Y-Y7 ;:« : GOTO 480 

51@ REM C FILL-BEFFHL ' 1 

520 POSITION XM. YM-POKE 765, C OL 

530 XIO 1.8, #6, 8, 8, "S : " 

540 GOSUß 1240= RETURN 

55 @ REM C KREIS ZEICHNEN 1 

56 f: L OR C OL : R"~ 8 QR< < X - X M ■■ A 2 + ( Y - YM > ""' 2 > : X !< 1 «= X M : Y!< :!. « y m +f ? : E Ü R . ..! =~ T "■■ 
5 7 T RH P 580 = XK = 8 1 H< J •' * R + X M ■■ Y !< ™C Ü S C ,..! > :*: R + YM * P L T X !< 1. , Y K 1. : DR Fl NT X !< , V 
53 X K :!. -■• X K : YK J. = Y!< = N E X T J = Z -■ C !. ... * R E I" U R N 
59ß XMO-XM : YMG«YM 

600 I F X M Q < T H E H YMQ » Y •■)•• >:'. ('. YM - Y > * '• X ■■••'< X ••- XM > > > = X M Q =@ = G T Ü 6 3 
6 1 I F Y MQ < THEH XMQ ■- X + < < X M- X ># < Y <" '■ V -» YM > ) > = Y M Q = O ' G OT 6 3 @ 
620 GOTO 640 

630 TRRP 600 : DRflWTO XMQ , YMQ 
640 Z™COL ■ XZ--X = YZ--Y : RETURN 
650 REM t BILDSCHIRM LOESCHEN 1 
66 ''•- # 6 , ' ' ¥ F Sii: " .; ■ Z « ; RE T URN 
^.?(d REM C FRRBEN VERRENDERN 1 
680 GET #1 .F:F^F~48 
690 TF F™--16 THEH RETURN 
700 TF F<0 ÖR F>4 THEH 680 
710 k' : =-STICK'::0> 

730 FRRßt F >-FRRB( F >+C < K"=5 OR K™6 HR K-? '■< RND f FHPRf F" V 1 fi ":« v--:" «:' 
) RND ^FflRB(F::->0>> 

730 HELL«:: F ^'-HELi....'' F >K .:' |<«5 np k~9 n& k'ai ?. ':• RHr> »:' HF| i r' f ':«< 1 K i ':> :<•-':' 
4':> RHD «::HELü::F'>'>0>> 
740 SETCOLOR F, FF|RB< F ), HEU. <r F "> 
750 FOR T™1. TO 2B ■■ NEXT T 
760 IF STRIG<0)=0 TUEN 680 
770 GOTO 710 

780 REM C INFO-ZEILE EIN--'RUS 1 
790 POKE 559.-0: IF IHF=1 THEN GOTO 9 1.0 
800 R = f > 8 L + D8H *S56 
810 POKE Fl, 66 
320 POKE R+1..M8L+1S 
830 POKE R+£:.M8H+30 
840 POKE R-i.,1.13 
8^0 POKE fl-2,112: 
860 R-R-2 

8 70 D 8 H™ I NT' C Fl /■ S 5 6 > • D 8L « Fi - D 8 H*3 5 6 
880 I HF- 1 : POKE 703 . 4 ■ 7 " ¥F¥ " : POKE 7 03 • ?4 
890 GOTO 980 

900 REM f INFO-ZEILE RUS 3 
910 R=D8L+t>8H*256 
920 R™R+2 

^ 3 D RH« T N T ■: R / 256 ':> = D8I = R - f ':< 8 H %? t5 i 6 
940 POKE R, 1.1.2 ■ 
950 POKE R+i, 112 



::9 QR !<::::: 10 OR |<= 1. 
'safi !'"!f? i<:=: 1 p| flK' !<f:= 
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960 POKE A+2,112 

970 IMFaS 

980 GOSUB 1040=GR=8 

990 PÖKE 559,34 

1000 RETURN 

1010 REM T UMSCHALTEN ZWISCHEN 1 f GRAPHIK UND MFNI IF 1 

1020 M«10'IF GR=@ THEH GR=8'GOTO 1040 

1030 POKE 560, D0L= POKE 56i,D0H=GR«0=PETHFN 

1PI40 POKE «560, DSL: POKE 561.&8H 

1050 RETURN 

1060 REM C INFO-ZEILE SCHREIBEN 3 

1870 PÖKE 752 < 1 = PflKF 703 ■ 4 

1080 ? »m&'i 

1090 ? «X=".iX.i" $H$".i 

1100 ? iiY«»,Yi" ¥H*"j 

11.1.0 ? "COLs";COL 

1120 POKE 752,0: PöKE 703,24 

11.30 POSITION X,V = GOTO 420 

1140 REM t KOORDINATEN-KORREKTUR 1 

1150 IE X<g THEN X-0 

1160 IF X>319 THEN X-319 

1170 IF V<0 THEN ¥=0 

11Ö0 IF V>191 THEN ¥«191 

11.90 GOTO 380 

1200 REM C DL IST-KORREKTUR 3 

1210 D8LaPEEK<560>'OeH«PEEKf56n 

1220 RETURN 

1230 REM C FARBWERTE EINSETZEN 1 

1240 GRAPHICS 56<F0R ->0 TO 4=SETC0L0R J,FARBCJ>,HELL< J> = NEXT .l»IF JNF=1 THFN JT 

8UB 1 200 ■■ POKE 559 , < GOSUB 800 " " 

1250 GR-8' RETURN 

1260 REM C MENUE DRUCKEN 3 

1270 ? H $F$"'? "mmt MENUE 3" = ? 

1280 ? "SH:$C03«LOE8CHEN" 

1290 ? "»HÄi ANSCHREIBEN" 

1300 ? "SHJSC23-LINIE ZIEHEN" 

1310 ? H ¥H¥C33*PARALLELE ZIEHEN" 

1320 ? "¥HSC43*RECHTS FUELLEN" 

1330 ? "SH=¥t53*KREI8 ZEICHNEN" 

1340 ? »'¥H¥t63=BI LOSCH IRM L.ÖESCHEN" 

1350 ? "¥H¥C73«FARBEN SETZEN" 

1360 ? "WÄCeH« INFO-ZEILE" 

1370 ? "SHÄSMDISK-MENUEJ" 

1380 ? :? "t RETURN 3-GRAPHIK <-> MENUE - WECHSEL" '7' *T ä^T'i 

1.390 GOSUB 2480 

1400 RETURN 

1410 REM C DISK MENUE 1 

1420 COLOR Z-PLOT XI, Yl 

1430 GOSUB 2460= POKE 87,0 

1440 GR«8' GOSUB 1020 

1450 POKE 106,PEEK<106>-36 

1460 GRAPHICS 0*SETCOLQR 1, 0, H'SETCOLOR 2 , 3 , K '■ SFTCm np 4,«.0 

1470 ? "¥FCHHDÄ DISK-MENUE 3" 

1480 ? :? " ¥H¥C13=DI REKTOR V" 

1490 ? i? "*HSC23==BILD LADEN" 

1500 ? «? H ¥H*!C33*BILD ABSPEICHERN" 

1510 ? «? M aHH*C43«DflTEI SICHERN" 

1.520 ? =? "•*HSt53=DATEI ENTSICHERN" 

1530 ? <? M ¥H^C63"DATEI UMBENENNEN" 

1.540 ? =? "SH:*t73~DATEI LOESCHEN" 

1550 ? i? "¥H¥Ce3*C GRAPHIK-MENUE 3" 

1560 ? 
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1570 GET #i,MEN 

1580 REM 

1590 MEH«MEN-48 

1600 TRRP 1570 

1 f. 1 RN MEH GOTO 1 630 , 1 698 .. 1 830 .. 1 950 , 2020 .. 2090 .. 2 1 60 .. 2360 

1620 GOTO 1570 

1638 PFM t DI REKTOR Y 1 

1 640 TRRP 1 670 = POS I T I OH 2 , 20 ■ ? " D 1 : * „ *¥DDD¥ " ■ : GOSUB 2290 ' ? " ¥FCS " ; R* 

1650 OPEH #2,6,0,8$ 

1660 INPUT #2,R$-? RS 'GOTO 1668 

1^70 i'inSE #2 : ? : ? 'T DRUECKEH SIE EINE TRSTE 1" ! GET #!,R : GOTO 1470 

lfiSÖ REM £ BILD LRDEN 1 

1690 POSITION 5,5 ■■? "¥flE¥"j 

1700 GOSUB 2280 

171.0- TRRP 2410 

1720 IF R$="" OR fl*<4>*"" THEN 1810' 

1 730 SRRM=M8L+M8H*256 

1740 OPEH #2..4,0,R* 

1 750 Os|JSR< RDR«: C 1 0$ > , 32 , 7 , SRRM > 7689 > 

1760 FOR J~0 TO 4 

1770 GET #2,FRRB=GET #2, HELL 

1 7R0 FflRBC J i-FRRB = HELL/. J >=HELL 

1790 HEXT J 

1800 CLOSE #2 = IF PEEK<867><>1 THEN POKE 195, PEEI<< 867} = GOTO 2410 

1810 GOTO 1470 

1820 REM T BILD RBSPE ICHERN 1 

1830 POSITION 5,7=? "¥RE¥"i 

1840 GOSUB 2280 

1850 TRRP 2410 

1860 IF fl*="" OR R*<4>«"" THEN 1810 

1870 SRRM=M8L+M8H*256 

1880 OPEN #2,8,0,R* 

1 p.9ß G-USR< RDRC C 1 0$ > , 32 , 1 1 , SRRM , 7680 > 

1900 FOR Js0 TO 4 

19U3 PUT #2,FRRB«::J> = PUT #2,HELL/J> 

1920 HEXT J 

1 930 CLOSE #2 : IF PEEK< 867 X > 1 THEN POKE 1 95 , PEE!« 867 > = GOTO 24 10 

1940 GOTO 1470 

1950 REM C DATEI SICHERN 3 

19fi0 POSITION 5,9=? "¥RE¥"v 

1970 GOSUB 2280 

1980 TRRP 2410 

1990 IF R*s«» HR R$(4)-~"" THEN 1470 

2000 XIO 85, #2, 0,0. .R* 

2010 GOTO 1470 

2020 REM t DRTEI ENTSICHERN ] 

2030 POSITION 5,11 = ? "¥RE¥".i 

2040 GOSUB 2280 

2050 TRRP 2410 

2060 IF R$-"" OR R*<4)s"" THEN 1470 

2070 XIO 86,#2,0,0,R* 

?fl80 CXiTO 1470 

20.90 REM T DRTEI UMBENENNEN 3 

2 1 00 POS I T I OH 5,13=? " ¥RE* " • 

2110 GOSUB 2280 

21.20 TRRP 2410 

2130 IF R$ss"" OR R$<4>~"" THEN 1470 

2140 XIO 32, #2, 0,0, R$ 

2150 GOTO 1470 

2160 REM r. DRTEI LOESCHEH 3 

2 1 70 POS I T I OH 5 , 1 5 = ? " SRE& " ; 

2180 GOSUB 2280 
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21.90 TRR'P 24:10 ' 

2200 IF fi*="" OK' R$(4>~"" THEN 1.478 

2? 10 OPEH #2,6,0,R$:CLOSE #2 = ? "^BIB^" ; 

2220 ? " DR U ECKEN SIE -V- ZUM L0E80HFN VON „ . " = ■? " — V* ; Mi = ■? 

2230 ? " CRCHTUNG • RLL.E DATEIEN MIT DIFSFP1 rsPFZTFIk'ftTTON UFPDFM GFI npSCMT 

1!¥D£"i 

2240 GET #:f...R:IF ROS9 THEN 1470 

2250 XIO 33,#2.0,0,Rü& 

2260 GOTO 1470 

2270 REM IC EINGRBE ROUTINE 2 

22#0 POS I T I OH 2 , 20 • ? " D :!. ■ " .; 

2290 GET #1. ,fi 

2300 IF Rssifgg OR R:=J.57 OR R™t25 OR Rs=?R riP R^2'=) TMFM ??qpi 

231.0 ? CHRS<fl>.s 

2320 IF fl<>i.55 THEN 2290 

2330 POSITION 2.-20 

2340 INPUT #3,fl* 

2350 RETURN 

2360 REM C SPRUNG ZUM GRRPHIK-MENUE 1 

2370 GOSUB 1270;ROKE 1.06,1.60 

2380 GOSUB 124Ö 

2390 POP : L.OCRTE 1.60, 96, Z : GHTO :'^PiPi 

2400 REM r; FEHLERMELDUNG 1 

24 1 CL OSE #2 « POS I T I ON 2 , 2 1 = ? " & I II ¥ » ; 

2420 ? "ERROR - " .; PEEK(195) 

2430 ? :? "C DRUECKEN SIE EINE TRATET 1 ; 

2440 GET #l,R=GOTO 1470 

2450 REM t ZEIGER F„ 8CREEN--RRM 1 

2460 POKE 88..M9L : POKF 89 .MRH : POKF R?,0 

2470 RETURN 

2480 POKE 8B..MBL = POKF R9.MRH : PnkF 87.8 

2490 RETURN 

2500 REM 

2510 REM 

2520 REM ERKLÄRUNG ZUR EINGABE DP'P snhinFRFFTrHFW 

2530. REM 

2540 REM 

2550 REM -ALLES , WRS IN ECKIGEN KL. R MM EPH '■ Fl ■• STFRT , (JTRD TWVFPR i~pc : rMPTFRFM 

2560 REM 

2570 REM -~ RLLES, WRS ZWISCHEN ^-ZEICHEN STEHT. SIND mMf':«FP7FTr:MFN n 

2580 REM DIESE ZEICHEN WERDEN WIE FOLGT FINGFGFRFH = 

2590 REM 

2 £00 REM -fl'=ESC . ESC < 2*DPI IFHKEN -' 

2610 REM -B*ESC,CTRL-MiNÜS ''PFEIL NRCH riRFKI':. 

2620 REM --OESC, CTRL -GL. EICH (PFEIL NRCH UNTEN) 

2630 REM -D=ESC .. CTRL-PLUS (PFEIL NRCH LINKS ":< 

2640 REM ~E=ESC,CTRL~MRL (PFEIL NRCH RECHTS > 

2650 REM ~F»E8C,SHIFT~CLERR ( SCHRAFGEP PFF7I NRCH OFiFN ':> 

2660 REM -G«ESC,DELETE (DREIECK HRf":H i THKS:- 

2670 REM ~H«ESC,TRB (DREIECK NRCH RECHTS? 

2680 REM "~I-ESC,SHIFT-DELETE (NIF "R" , . lFDnnH THVFRR'i 

2690 REM ~.>E8C,8HIFT~INSERT (WIE "C", JEDOCH TNVFRS ':■ 

2700 REM -K-=ESC,SHIFT™TRB (WIE "D", JEDOCH WFPfi ':> 

2710 REM ~L*£SC , CTRL-TRB (WIE "F", JEDOCH INVERS > 

2720 REM -MkESC , CTRL-2 (WIE "F", JEDOCH INVERS > 

2 7 30 REM - N™ ESC , C TRI... - D EL ETE ( |,JT F " G " . . I F D OCH T w V F P R :> 

2740 REM -0»ESC..CTRL»INSERT (NIF "H", . IFlShr.H ]WFPS , > 

2750 REM 

2760 REM 

2770 REM -BEISPIEL: &CD£ » ESC, CTRL-*.. ESC, CTRL-+ 
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Hardcopy für Graphics 



7+ und 8 



Dieses Programm ermöglicht es, 
Bilder des Graphics Mode 7+ (7E) 
und 8 auf dem Drucker auszuge- 
ben. Die Bilddaten müssen über die 
Handler (IOCB) ladbar sein. Daher 
können als Datenträger sowohl Dis- 
kette als auch Kassette benutzt wer- 
den. Dieses Programm macht das 
Hardcopy in einer Minute. Die Lad- 
eroutine des Programms ist MICRO- 
PAINTER (tm) kompatibel. 

SYSTEM REQUIREMENT: 
ATARI 400/800/600XL/800XL Com- 
puter 

ATARI 810/1050 Disk Drive 
ATARI 410/1010 Program Recorder 
ATARI {EPSON RX../MX../RX..) 

laden des Progiammes: 
1. Für Kassete 

1. Programmkassette einlegen 

2. Mit CLOAD laden 

3. Mit RUN starten 

4. Daten Kassette oder Diskette ein- 
legen 

IL Für Diskette 

1. Programmdiskette einlegen 

2. Mit LOAD Ji D:GR8PRINT.BAS" 
laden 

3. Mit RUN starten 

4. Daten Diskette oder Kassette ein- 
legen 

Als erstes erscheint das Einführungs- 
bild, das mit START verlassen werden 
kann. Dann fragt der Computer, ob er 
die Directory der Disk ausgeben soll. 
Dies ist aber nur möglich, wenn eine 



mm 

sM. 'mm 



! JsF '■'■■ d 

''Wfin .-Mi 







Disk angeschlossen ist. Ansonsten 
tritt eine Fehlermeldung auf, die dann 
nach Betätigen der START- Taste zu 
einem erneuten Start des Programmes 
führt. Die Frage nach der Directory 
muß mit '1' oder '0' beantwortet wer- 
den. T bezweckt die Ausgabe. An- 



schließend muß der Bildname eingege- 
ben werden (Bsp. D:TIGER.MIC). Nun 
erfolgt das Laden des Bildes. Nach 
dem Lade Vorgang führt ein Betätigen 
der START- Taste zum Ausdruck des 
Bildes. Ein erneutes Drücken zum 
Neustart. 



REM # # # # # # # # # # •%' # # # # # # # # # # # # # # # 




t REH # # 




2 REH + HARDCOPY f uer 7+ und 8 # 




3 REM # # 




4 REH # by Klaus Rupprecht ?> 




5 REN * * 




6 REH # (c) 19S4 20/05/ 1984 * 




"7 PPH ä, Jp 




S REH ####### # ####•# # # # # # # # # # # # # # 




9 REH 




1 A RPfiPU T - ! "Q -17«*"? SA « *? # A f }! r ■ r S™r j '5' I 3 ; "'.e' M i ! :' ! ''. : ii '' * " *=* *: *■ £"' * ,L = " £ U ±:'S 


iViSSiRnBn^hHWtri 


11 ? #6:? #6;- #6; H hardcopy fuer 85 




12 ? #6:? #6:? #6:? #6; " qraphics 7+ und 8" 




13 ? #6:? #6:? #6s? #6;" BY n 




14 ** &£-»i §4.? £A»? *£■ « H^^fl'T- f^ffi^T^-T^^^^ii" 




*?n ** AA«? 1.4«? ilA.O jttt; ETO^-a^'p:^-^ 




90 IF PEEKi 53279)06 THEU 90 




99 CLR zDlH B$U6> ? A$Q92) ? X$U7};TRAP 1000 
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1 00 GRAPH I CS : ? * % 4 4 > ■*■ -*D I RECTORY QF D I SK ( 0/ 1 ) " ; : I NPUT Y : I F Y- 1 THEM 1 200 

101 ? " «'S 4 4 4 ■& 4 4 -* ■* -* Sehen Sie den Bi I der nagten ein.":? " 4 4 * ■* ■*■ ■* ■* -s- -> « ; ; I NPUT 8* 

102 IF B*(1,I)<>"Ö" AMD 8$U,1K>"C" TUEN 101 

110 ? "444 ■* ■■> ■■> -:*SR 8 ODER 7h- !l j ? "4 4 ■* * ■* -3-Be i SR S e i ngeb en . 3S s ? " 4 -> * ••> ■* •* -s- ■> - ; 

sINPÜT Q 

130 GRAPHICS S+i-6 

1 50 DPL=PEEK ( 560 ) -§-256*FEEK C 56 1 ) 

160 DPH=PEEKCDPL*4}+256*FEEK<DPL-?-5} 

171 IF Q=0 TUEN 300 

200 FUKE DPL+3,78 

210 FOR A=0 TO ?2:P0KE DPL+6+A,I4:NEXT As POKE DPL+6+93,7S 

220 FQR A=96 TO 192: POKE DPL+6+A, 14sNEXT A 

260 TRAF 500 

300 OPEN #1,4,0, BS 

340 HA.ND=S32+16 

350 POKE HANB+2,7 

390 F'OK E HANDYS , I N T i BPH/ 256 ) : POKE HANB+4 , 1 NT i DPÜ— i 256 #PEEK s * HAND+5 > > ) 

410 BYTES=76S0: POKE HAND+9, INT (BYTES/256) : POKE HAND+8, INT (BYTES- <256*PEEK CHAND+9 

) } } 

440 TRAF 1500 

450 BUf1HY=USRCADR( ! *hhhS_vi!?j"K16} 
4.AA jRfip 1000 

451 IF S=0 THEN 500 

490 SET #1, As POKE 712, As FOR A=0 TO 2; SET #l,BsPOKE 708+A,B:NEXT A 

500 CLOSE #i 

510 IF PEEK (53279) 06 THEN 510 

600 RESTGRE 660s FÜR B=i TO 61; READ 14: POKE 1535+B,N;NEXT Bs3H=PEEK(S8)+256*PEE£ <S 

9):SM=SH4-40*i91 

6 1 LRR I NT CHR$ \ 27 > I " A " ? CHRS ( 8 ) : FOR X=3M TO SM+39 

620 A$=CHR$ ( } : A$ < 1 92 ) =CHR$ ( ) : A $ ( 2 ) =A* 

A40 W=USR ( 1 536 , X , ADR i A$ ) ) 

641 LPRINT "%k|£j*";A* 

650 NEXT X 

655 IF PEEK (53279)06 THEN 655 

656 RUM 

660 DATA 104, 104, 141,21,6, 104, 141,20,6, 104, 141,27,6, 104. 141,26,6, 160, r?3, 173,255 

,255,136,240,35,141,255,255,238 

670 DATA 26 9 6, 240, 21, 173, 20, 6 5 56, 233, 40, 14 1,20, 6, 144, 4, 24, 76, 19, 6, 206, 21, 6,76,1? 

1"! X.-JU ,if , w 5 / ö , -_-•_• , Q = ?i-= 

1000 GRAPHICS Ö:IF PEEK il 95) =138 THEN ? "44. 
ichti |° 

1001 ? *4*Druecksn Sie die START- Tsst e. ":30T0 1010 

1002 ? H *¥4* 4 ■*■■**■* ERROR : !3 ?PEEK<1 95) 
1010 IF PEEK (53279 K>& THEN 1010 

i fy*7fi PI |*.| 

1200 CLOSE #1:0PEN #4,6,0 ? "D:*. * 1S 
1210 1NPUT #4,X$s? X$ 

1230 GOTO 1210 

1240 IF PEEK (532795 Oö THEN 1240 

1250 SGTO 101 

1 500 I F PEEK ( 1 95 ) = 1 36 ■ TtfFN 460 

1510 SGTO 1000 
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Ein Labyrinthspiel für die Grund- 
version des VC-20. Ziel ist es, in die 

Mitte des Labyrinths bzw. des Bild- 
schirmes zu gelangen. Achten Sie auf 
dem Weg dorthin auf die sich zufällig 
öffnenden Türen. Sie müssen so 
schnell wie möglich durchlaufen wer- 
den. Schließt sich eine Tür und Sie 
befinden sich gerade im Durchgang, 
dann ist das Spiel zu Ende. 
Gefahr droht Ihnen während des 
Spiels jedoch noch von anderer Seite. 
Im Labyrinth tummeln sich Monster 
und Gespenster. Alle machen Jagd auf 
Sie und versuchen mit allen Mitteln 
Ihnen den Weg abzuschneiden.. Vor- 





sicht! - Ein Gespenst ist dabei beson- 
ders hartnäckig. 

Versuchen Sie also, so weit wie mög- 
lich ins Labyrinth vorzudringen und 
den Verfolgern geschickt auszuwei- 
chen. Eine kleine Hilfe: Im Spiel ver- 
teilt sind insgesamt vier Früchte von 
denen Sie essen können. Nach dem 
Verzehr sind Sie kurzfristig in der 
Lage eine Mauer zu sprengen, wenn 
dies erforderlich ist. 

Steuerung: links >L<, aufwärts >p<, 
rechts >;<, abwärts > Leertaste <. 
Mit >:< können Sie die Mauer spren- 
gen. 



± PRIHT"U3j ,, POKE3GÖ79, 18 : POKE3G878, 15 : E = 7688 
lO F0RT=38T0158 : POKE36865 , T:FORTT=8TOifl:HEXT 

PPTMT"[.i.I.I.I.I.M.I»llSPIELftHLEITUHG?<J/H>" 

FÜRT-JL50TO33STEP-1 = POKE368G5, T - F0RTT=8T018 

GETAS = IFft$=""GOT014 

IFAS = *'N ,, G0T0113 

FORT = 0TO1 = F0RTT=148T0240 = POKE36876,TT = HEXT = HEXT = POKE3G87G 



±1 
12 
14 
±5 
16 

,o 

20 
22 

24 
26 
28 
30 
32 
34 



HEXT 



HEXT : HEXT 



3 = PÜKE36877 



38 
-48 
-42 
4-4 
46 
48 

52 
54 
56 
58 
60 



64 
66 
68 
T6 
T2 

74 
76 
78 
80 
82 
83 



PRIHT'V 

PRiHT"DftS ZIEL IST ES, ZUM"=PRIHT 

PRIHT"SCHftTZ IH DER MITTE "-PRIHT 

PRIHT-DES BILDSCHIRMS ZU GE~" 

PRIHT*'LAHGEN, DOCH MONSTER , " = PR I HT 

PRIHT"GEISTER UHD TUEREN "=PRIHT 

PRINT"HINDERN SIE DARAN. "PRINT 

F0RT=8T021 = POKEE+15*22+T, 83 : P0KE38408+i5*22+T 
, 20 F0RTT=8T029 HEXT 
36 POKE36877, NEXT 

PRIHT" L»I»I?I?L»I?L'*>1»fr*l -TftSTE-" = POKE198.8: MAIT198 

PRIHT"^" 

PRINT"DIE TUEREN OEFFNEN UH0" 

PRINT"SCHLIESSEN SICH UOH":PRINT 

PRINT"ZEIT ZU ZEIT. 'SPRINT 

PRINT"tai3VORSICHT! WENN SICH ":PRINT 

PRIHT"DIE TUER SCHLIESST UHD" 

PRINT**SIE BEFINDEN SICH IM 'SPRINT 

PRIHT"DURCHGAHG, IST DAS ":PRINT 

PRINT"SPIEL ZU ENDE.":PRINT 

PRINT"|JUUJ!iaillJ-TASTE-":POKE198,0 

F0RT = 8T021 = POKEE + 7*22 + T, 81 : POKE38498 + 7*22 + T 
88 :POKE36877, O = HEXT = MAIT198, 1 
6 "** - PRINT' "L' '" * 

F0RT=158T0128STEP-4:P0KE3686G, T:FORTT=OTÖ58:NEXT:NEXT 

PRINT'-WENN SIE EINE DER " = PRINT 
PRIHT"FRUECHTE AM RAHD FRES-" 
PRIHT-SEH, SO KOEHHEH SIE":PRINT 
PRIHT"EIHMAL DIE MAUER SPREH" 

PRINT"-GEN,"PRINT 

PRINT-DIES MACHEN SIE I NDEM" = PRIHT 

PRINT-SIE '= ' UHD DAHH DIE"=PRINT 

PRINT"'GEMUENSCHTE RICHTUNG" = PR I HT 

PRIHT"EIHT ASTEN. " 

F0RT=128T0I50STEP4: POKE3G8GG, T - F0RTT = 8T058 NEXT = HEXT - POKE 
36866,158 

84 PR I HT- WlPlltlll T ASTE-" = POKE198,8 NAIT198 
86 POKE368G5, 158 : PRINT"L" 
88 PRINT"ESTEUERÜNG =" 



4:POKE3G877 



1 



Computronic 



63. 




36 PR 

32 PR 
3-* PR 
3G PR 
38 PR 

33 FO 
180 P 

iei p 

102 P 

±8-4 P 

186 P 

±38 P 

±±3 P 

112 P 

±±3 P 

1000 

1331 

1862 
1883 
188-4 



INT" ' z PRINT 

I MT" l3S?E«l»lJ»»K1 HPPPPiP" 
IHT"EE.'»gfr»PP»»H " 
I N T "WÜMAÄJiLJUL - + - i " 



KE368G5 t T:FORTT 



iTOU 



RT=150TO38STEP-l:Pi 

R I H T ■ -|Ä»*«IÄS»JUfelS P A C E a * 

RINT"jjJ a »fcI^J»»i|i»»P»l-T^STE- g ':PQKE138 J 6:MftIT. 

RINT"kS£li*JWENN SIE HÖH EIME":PRIHT 

RIHT-TASTE ÖRUECKEH, WIRD ":PRINT 

RIMT"J)ftS PROGRAMM GELOESCHT" 

RIHT"ÜH» SIE MUESSEM LOAD'^PRIHT 

RINT"E INGEBEN . " 

OKE198, 0:MAIT138a 

R I MT"L'^fIftf I .'I.»lL'ftt.'If ^ li»!»|B I TTE ' LOftD '" 

NEW 

REM <C> BV JOHANN 

REM STRAUSS JUH - 

REM OSTRIACH 182 

REM 9578 OSSIACH 



! fc_ ä i - irf fc- X I 



1 : P! 



Teil 2 



8 POKE3G876, 288 

1 READA:IFA=-ieOT028 

2 POKE7168 + T+8*48 , A : T = T + 1 = GOTOl 

28 F0RT = 8T07 :POKE7168 + 32*8 + T J 8 = HEXT 

38 PRIHT"L" = POKE36876 , 8 = P R I NT"L'l»l'l"E»E»E»E'L'l'U£?tfÜgiNOCHMALS ' LOAD 

'"" = NEW 
188 DATA24,126,24,G8, 126, 98,24, 68, 8, 127, 127,127, 127,127, 127, 
127, 123, 66, 68, 38, 126, 68, 2-* 

118 DATA68, 2-*, 68, 38, 126, 126, 38, 165, 8, 255, 123, 123, 123, 123, 123 
,123, 255, 1,2, -4, 186, 127, 125 
115 DATA68, 24,129,126,102,90,90,182,126,129,-1 



Teil 3 



1 P 

POK 

2 Q 
T> = 
15 
188 
185 
118 
115 
128 
121 
122 
125 
= 6 = 
135 
137 
138 
133 
1-48 

= P + 

245 
388 
382 
383 
385 



RINT 

E368 

Cl> = 

WEHT 

FORT 

FOR 

PE = 

IFP 

IFP 

IFP 

IFR 

IFP 

A=I 

G + i = 

W-X 

IFX 

11 = 

IFI 

POK 

100 i 

NEX 
¥ = V 
IFC 
IFC 
POK 



"Li*" 
63,2 
130 : 
: FOR 
= 8TO 
Tl = 8 
PEEK 
E = 32 
E = 2i 
E = 22 
= 8GO 
E = 45 
NTCR 
IFG> 
X = Wl 
X = WA 
8 : PO 
1>2T 
EE + X 
GOTO 
T '= 68 
-22 i 
1=53 
1=51 
EE + X 



: DI 
55 : 
Q<2 
T = 9 

23 = 
T02 
<13 
THE 
THE 
THE 
TOI 
THE 
ND< 
8TH 
= VV 
NDV 
KEE 
HEN 
X + V 
288 
TOI 
CI = 
THE 
GOT 
+ Y, 



= 7688: V = 66 = X = 5 =POKE368T8, 15 = DIMO<23> = 

POKE3G879, 14 

418: : FORT=8TOi8 = READA$(T> = PRIHT"C"ftS( 

:PRIHT"C"A$<T> HEKT 

POtCE38408 + 0CT> , 3 = NEXT = XX = 18 = GOSUB360 

6, 8 

3THENG0SUB580 = GOSUB388 

: GOSUB318 

= G0SUB320 

: GOSUB338 

B1888 

OKEE + QCT1) , 32 : ONAGOSUB488, 418, 42 8, 43 8 

UB538 

I>1THEHI=0 = GOSUB8B8 
1=I1+1:G0T0139 
OKE38631, 4 



y> = IFCI=49BRV<:80RCI = 52THE«V = V + 22 
G,24B:R=1 



HAS(ll) : E 
Q< 8>=218 = 

>=122 :VV= 
TÜÖSTEP-i 
READO(T) : 

: POKE3687 
7> = IFPE = 1 
NGOSUB580 
NGOSUB588 
NGOSUB50O 
25 

HR=1 = GOSÜ 
±>**4>+l : P 
ENG=8 = GOS 

= 1=1+1 = IF 
V=W1THENI 
+ 231, 54= P 
GOSUB1288 
V, 58 : POKE3840B+XX+VV,7 = IFX=11AHDV=22ÖTHEHD=1 = P 

8 

88 

PEEK<E+X 

NPOKE3687I 

82888 

48 = P8KE38 



480+V+X, 1 : RETURN 



64 



Computronic 




3±e 

312 
313 

315 
320 
322 
323 
325 
338 
332 
333 
335 
■460 
-465 
■403 
410 
415 
419 
420 
425 
-42 3 
430 
43 5 
433 

500 

530 

608 

)*23 

605 

800 

22 

805 

8±Ö 

815 

81T 

900 

905 
9±0 

i00Q 

N 

1100 

11G5 
1110 
1115 
1120 
1200 
1205 
130© 
HXX = 
1305 

1400 

EHVV 
1405 

2000 

T""L<" 

2005 

201© 

O 

2020 

2836 

HOCH 

2035 



V = 
IF 

IF 
PO 

x= 

IF 
IF 

PO 

x = 

IF 
IF 



IF 

PO 

OC 
IF 
PO 
QC 
IF 
PO 
Q( 
IF 
PO 
PO 
IF 
PO 
> - 
PO 
PO 



CI 
CI 
ICE 
X- 
CI 
CI 
KE 
X + 
CI 
CI 
ICE 
Tl 



53 
51 
+ X 
:C 
53 
51 
+ V 
= C 
53 
51 
4-V 
= Q 



CI 

TH 
60 

1 = 
TH 
GO 
+ X 

1 = 
TH 
GO 
+ X 



:e-«- ! 



KE 
Tl 

PEEK( 



>'=» 



Tl 
PE 



Q 



>=l 



KE 

KE 
PE 

KE 
02 
KE 
KE 



KC 

+ 

"»-X 
KC 

*o 

IN 

+ o 

+ X 



<T 
<T 
E + 
CT 
«CT 
E + 
CT 
CT 
£■*■ 
CT 
*V 
E + 
CO 
TC 
CO 

x + 



= PEEK 

ENPOK 
TO2O0 
f 48:P 
PEEKC 
EHFOK 
T0200 
f 48;P 
PEEKC 
EHPOK 
T0200 
,48:P 
i>-22 
QCT1> 
i> M 51 
I>+22 
QCT1> 
1> , 51 
1>-1 - 
QCT±> 
1> , 51 
l?-«-! = 
QCT1> 
i>,5± 

,32:P 

OCOi> 
i>,52 

RM&C1 
I>,32 
VV, 32 



E-«-X + Y> = IFCI=490RCI=520RV>482THEHV = V 
3G87S,249 R=l 

KE384ÖÖ+X+V, 1 = RETURN 

+X+V> : IFCI=49ORCI=52ORX<0THEHK=X+I 

3687G, 240 = R = l 



KE384O0 + V + X, ± = RETURM 
+V+X> : IFCI=490RCI=520 
36876, 240 = R = A 



>21THEMX-Xi 



>< 

: P 

IF 

:P 
IF 
>< 



E38490+V+X» 1 = RETURH 
FPEEK<E+ö<TI>>=4860I02889 
>32THEMQCTi>=Q(Ti>+22 
OKE38400 + Q<Ti> , 5 = RETÜRM 
FPEEKCE*QCT1>>=48GOTO200O 

>32THEHQ<Ti>=Q(Tl>-22 
OKE38408 + Q(Ti> , 5 = REFORM 
PEEKC E+QCT1J >=4860T02900 
>32THEHQ(Tl>=Qai>+I 
OKE38 408-B-QCTi> J 5 = RETURM 
PEEKCE + QCTA5 > =486OTO2S00 
>32THEMQ<Ti>=0(Ti>~i 
OKE38490+Q(Ti) ,5 RETURM 
E3887G, 266 = RETURM 

48ORPEEK(E+O<02) >=48GOTO2O0 
0KE0(02)+E I 52 = POKE36876, 180 
24) 

OKEE + 0€02> s 32 - P = P~2 -RETURM 
FVV<VTHEHVV=VV+22 - GGSUB988 - 



O 



H-IHTCRNDCi 



IFJTHEMVV=VV 



IFYV>VTHEHVV=VV-22 = GDSUB968 = I F-JTHEM VV = VV + 22 
IFXX>XTHEMXX=XX-1 : GOSUBSOO : IFJTHEHXX=XX+1 
IFXXCXTHEMXX=XX+1 :GOSUB90O: IFJTHEHXX-XX-I 
RETURM 

IFPEEKCE+XX+VV)=4860TO2080 
IFPEEKCE+XX+VV)C>32THEHJ=I = RETÖRH 
J=G:RETURM 

POKE36876,230 :G0SUBIi06 = P^P+iÖ P 



IE+V+X+G, 3 



O - O — ! 



I-ETUR 



SS=PEEK(I97) - IFSS=32THEHG=+22 = RETURM 

IFSS=I3THEH6=-22 = RETURM 

IFSS=21THE«G=-i = RETURH 

IFSS=22THEMG=i = RETURM 

GOTO11O0 

U=IHTCRMDC±)*4)-I : IFU = 0THEÜLl = 22 = GOTO 

IFW=2THENU=-22 = GOTO140O 

XX=XX+U: CI=PEEKCE+XX+VV) = IFCI=490RCI=52ORXX>2IORXX<8THE 

XX u - RETURN 

P0KEE+XX+VV,50:P0KEE*XX-U*VV,32:G0T0I30S 

VV=VV+ü: CI=PEEK(E+XX+V¥) = IFCI=49ORCI=520RVV>484ORVV<0TH 

= yy_y z fJETURM 

P9KEE+XX+VV, 50 : POKEE+XX+ VV -U , 32 = RETURM 
FORT-240TO14OSTEP1 = POKE3887G, T : HEXT = POKE3G 
:POKE3G877,B 
PRIMT"ÜÜJjaüI>AS SPIEL IST MS" = I F&-OGO T02020 
F0RT = I4OT0240 = PÖKE368T6 , T = HEXT = PR I INI T n *L£IÜB R ift U O ! 



9, 246 = PRIH 



■ ■ " = GOT0283 



PRIHT^MäUERSfiGER! ! '" 

PRI MT-ÖIÜPUNKTE : "P+I09 

EIMMflL?" 

GETAS = IFAS=""G0TO2835 



POKE3687G 



19 



PRIHT'l'i^fH 



romoutronic 




■ * ■ ■ 



•■ •)■ 



i 

X -» 



i 
± 



2646 IFftS^'J-THEHRUH 

2656 EHD 

66668 DATA"5 Ulliililiiiliiii 5 

66665 DATA" 4 J.JLA ±±A±±±±i -4 

X XX XXX*XiX XX X 
66616 DATA" XX XX 

XXX XXX" 

66615 DATA" ± ± -4 11411 4 X X 

141464141 
66826 DAT A4?, 63, 72, 82, 33, 141, 145, 1Ö3, 187, 131 , 225, 223, 233, 237 
,271,275,273,317,321,363 
66625 DATA386, 338, 333, 415 



1 114111411 1 

1111 1111 



Meteorit 



für die Grtmdversion des VC-20. Mit einer Laserkanone müssen Sie 
herabfallende Meteoriten abwehren. 



P0KE36879, 23/ : PRINTCHR*< 147> : PÜKE56, 28 : P0KE52 
2 PRINT" ISMETEORITSS H 

RINTTflB<2£?" BV ROBERT DIEPOLD" 

Ell 6730 NEUSTADT 

■RINT"MSÄI .aiSMELCHE SP-IELSTRERKE3H" : PRINT 

INPUT" Sl BIS 10S";flX 

I h F \/X 1 GRR?<> i 9THEN 1 8 

PRINTCHR$<147> 

FÜR I -0TO95 : P0KE7 1 68+ 1 , PEEK C 32768+ 1 > : HEXT I 

P0KE36869,255 

FÖRT=0TÜ95 : REli'HB : P0KE7168+T, Fi = HEXT 

DflTfie .- .■ .. 6 , .. , -■ 

DflTftbS , 1 1 .■ 64 , 24 .. 60 , 1 24 , 56 
BATR182, 102.-255.-129.. 126,. 60,- 36.' 195 
BAT R0 .. @ .. 1 02 .■ i 02 .102.. .- ,165 
DRTfl 1 29 .■ 1 65 , 1 65 .. i 65 ■ 129,1 65 .- 1 65 .■ 1 29 
BRTA24 . 24 , 24 , 36 > 66 , 1 29 .. 1 65 .• 1 65 
DATA .- 1 95 .. 1 65 .. 1 53 j 24 .- .- , 
DATA 129.. 165, 165,. 129.. 189, 189, 189,255 
DRTA255 , 1 29 , 1 6b , i 65 , 1 29 , 1 65 , 1 65 , 1 29 
DATA254 ,16,121,1 59 , 244 , 32 .« 1 60 , 1 28 
DATR8 , , ,0,14,11 3 .■ 1 28 , 255 
BATA0,0, 12, 186, 145.. 1, 1.-254 
FÜRZ=0TO48Ö = PGKE7686+Z, 6 : NEKTZ 

pr i nt " ätksos JKeeeejKeee JKSBüdiFB" 

PRINT = P0KE36878, 15 : L=36874 = Ll=36875 = L£=36876 

pr int' 1 sßBeBeBBBOsaeedffiFseesöFS" 

PRINT 

PRINT U EHBBMDMDHHMDHHHDDBHDH" 

PRINT"BDDDHDHBBBHDDBHBDDBBD" 

P0KE8163, 5 = P0KE38883.. : F0RI-8T021 : P0KE8 164+1 

FORO-0TO28 : FORI=220TÜ252 : PÖKEL, I : NEXTI : PÖKEL 

B1=22 : XK~0 

IFBK=flXTHEN192 

P0KEN3.- : K==IN'KkNJX 1 >*22)+Ö ■ Hl =8065 : N2-3S785 

BB-22 : N9-8 : FORI i=0TO5 = NEXTI 1 = P0KEL3. Ö 

POKEN 1 + V , 2 • P0KEN2+ V , 6 

IFVO0THENN3-N3+BB : N4=N4+BB : GQT0136 

1 FFR=1THENN3=N3+BB : H4=H4+EB • GOTO 134 

POKEH3.-0 






4 R 
6 R 

8 P 

10 

12 

14 
16 
18 
20 

24 



38 

34 
36 

4Ö 
42 
44 
46 
48 
58 

54 
56 
58 
60 
62 
64 
66 
68 
78 

\ iL 

74 
76 

88 

Hl-"' 



Meteoriten, die Ihrer Stadt und Ihrer Kanone 
mit der Vernichtung drohen. Die Stadt kann 
jedoch gerettet werden, wenn Sie geschickt 
und reaktionsschnell Ihre Laserkanone be- 
dienen. 

Wird die Kanone getroffen, stehen Ihnen drei 
weitere Abwehrwaffen zur Verfügung. Nach 
der Zerstörung von insgesamt vier Kanonen 
ist das Spiel jedoch beendet. Bei Spielende 
wird die Anzahl der getroffenen Meteoriten 
sowie der Verbrauch von Laserkanonen an- 
gegeben. 

Übrigens: Nach einer gewissen Übungszeit 
kann die Spielstärke verändert werden. Mit 
der Eingabe der Spielstärke bestimmt man 
dann die erlaubte Anzahl von Meteoritenein- 
schlägen auf die Grundmauern eines Hauses. 
Gesteuert wird mit dem Joystick. Mit dem 
Feuerknopf werden die Energiestöße abgege- 
ben. 






7 : P0KE38884+ 1,0: NEXT I 
: NEXTÜ 



N3-7768+K = H4=38488+K : PÖKELS, 255 



Computronic 




£4 N3-N3+BB : N4=H4*BB 

56 BIN37 1 54 = P i =37 151 - P2-37 1 52 : PÜKEBD .■ i 27 '■ P=PEEK '• P2 > Fl NU 1 28 : J0=- < P"8 > : POKEÜÜ , 

E 3 P=PEEK < P 1 > : J2=- t < PH HD 1 6 ') =8 > : FR" C ( F ANB32 > =0 > 

r-3 IFFR=-1THENFR=1 

-2 IFFR=1THENKX=1 

54 I FJ2= 1 THEN : PÜKEN 1 +V , Ö : V- V- 1 

-ö I F • J ;:: " J. T H E N : F : ' K E N i + V , y : V -• V + 1 

>3 IFV=-12THENV=V+1 

:yS IFV~11THEMV=Y-1 

: 32 P0KEH3 .■ 1 : PÜKEN4 , 2 : PÜKEL3 , 253 

194 N3=N3+1 

1 Ö 6 1 F H 9 = 1 7T HE N : P ü K EN3+ B B .. Ö : "BX = B X + 1 = G "i" 07 

108 I F F E E K < N3 + BB ) ™ : 2 T HEN i 1 4 

1 10 I F PEEK < H 3 +BB > ™ > 4ANB P EE !< ( H3+ BB > :: ~ < 9 "i" H EHPOKE H 3 + B B ■ 8 : P KENS > 8 : ö T 7 8 

112 13010132 . 

114 NLH1U+1 

; 1 6 I FMU= 1 THEN : P0KE7747 , 8 : GOTO 1 24 

: 1 8 I FMU=2THEN : PÜKE7749 ■ : GOTO 1 24 

1 20 l Ft1U= 3T H EN : PGKE 7 7 5 1 > : GOT 0124 

1 22 I Ff1ü™4THENP0KEL3 .< : GOTO 1 38 

124 FÜRUI=0TG5 

; 26 FÜR I U=254TQ 1 28STEP-2 1 : PÜKE36876 , I U : P0KE36878 .- 1 5 : NE XT I U • Ft)K£3637b , 

:38 G0T078 

132 GOTO 76 

134 N5=Nl:H6=N2 

136 VC=VC+1. 

133 H5=H5-Bl:N6=H6-Bl 

; 40 P0KEN5+ V .■ 3 : P.0KEN6+V > 2 : P0KEL3 .• 6 : PÖKEL ,129 

: 42 I F P EEK ( H5+ V -SS > = 1 T HEN : P OK EN 3 .. 8 : GOT 1 64 

1 44 I FPEEK < N5+Y-22 > = 1 THEN : P0KEN3 , 8 : GOTO 164 - 

1 46 I FPEEK <-. N5+V-S8 > :=: 1 THEN : PÜKEN3 , 8 : GOTO 1 64 ■ 

: 4 8 IFPEEK<H5+V-119) = 1 THE N • p K E N 3 .- 8 : GO T 1 64 

: 5S I FPEEK <. H5+V- 1 32 ) = 1 THEN : P0KEN3 ; 8 : GOTO 1 64 

; 52 I FPEEK <. N5+V-44 > = 1 THEN : P0KEN3 , 8 = GOTO 1 64 

: 54 P0KEN5+ V * : PÖKEL , : P0KEL3 , 254 

: 56 I F VC=3THENVC=0 : P0KEH3-BB t 8 : GOT 086 

158 FR=-1 

:S9 P0KEN3~£B,8 

162 GOTO 182 

1 64 POKE 3 687 4 .. 8 = E=E+ i 

1 66 PÖKEN5+Y .• : P0KEN3-EB .- 

168 FORNH= S 0TO100 

170 PÜKEL3, 139 

172 NEXTNN 

174 P0KEL3.-8 

1 fb FÜRCV~8'i'02 i : P0KEL3 .■ 235 

1 78 P0KE778 1 -C V , 9 ■ P0KE3842 1 -C V , 2 

1 38 F RQ 5 s = T 12 : HEX "i ' Q5 

1 82 P0KE776 1 -CV , 8 : PÖKELS * 8 

184 NEXTCV 

186 P K EL 3 .■ 8 : C V«8 : VC -0 : FR = 8 : G T 6 8 

1 38 PR I NT i! IT '■ P0KE36869 .. ^48 ■ POKE 36879 , 238 : FORPK=254T0 1 2 7 STEP™ 1 : P0KEL2 > PK : NE; 

198 PRINT" MMB DU HAST BEINE VIER LfiSERKRNONEN VERBRAUCHT. " = Gl 

: 92 P0KE3686S , 240 : POKE 36 8 79 .■ 1 22 = PR I NTCHR$ < 1 47 "> ■ P0KEL3 .. 

194 PRINT"HDU HAST ,ä ; E 

1 96 PR I NT M M1ETE0R I TEN ZER3 T'OERT ! !i 

198 PRINT "EIN NEUES SPIEL??" 

Zm PRINT' 5 SJ/NH" 

292 GETA$ = I FAt= " 3 " THENS 

204 IFfl*="N"THENEND 

286 GÖT0282 



<TPK 
JT0194 



•omputronic . 
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Superstat 



fftSSSah- 



^^mS 



Superstat ist ein Statistikprogramm. Es errechnet Prozentanteile und erstellt Balkengrafiken für max. 14 frei 
benennbare Punkte. Zuerst erfolgt eine Bildschirmgrafik, die auf Wunsch ausgedruckt werden kann, dann eine genaue 
Angabe der erreichten Prozente. 

Ist kein Drucker vorhanden, müssen die Zeilen 610 und 740 sowie in den jeweiligen Vorzeilen die entsprechenden 
Angaben weggelassen werden. 



10 REH SUFERSTAT von H.Stoehr 

20 REH SIS 8.4..19S4. 

3© REH ©BANRNfiSOFT 

4© REH 

5© REJi Speich8fb8döff:I,93 K 

55 REM 

9© REH Eingabe 

SS PRINT RT 11,11; INK 2; FLRS 
H 1; "EINGABE"; FLASH ® 

9ö IHK 

9S- INPUT " Ue berschfift C » « . 's 
5 Buchst.) : " ,; u $ 
l©® INPUT "Rnsshl (max. 14 3: " i 

*i'0S IF anz>U THEN LET snz=U 

DIM P tanz) : £>IH i (3HZ) : DIH b$ C 
anzji) 
lll FOR n = l TO ans 

3,13 READ b$CnS 

115 INPUT C"Na»e ";n;"C»ax- 1© 

Buchst.) : !l 3 ; n$ Cn> 

3116 XF LEN rs$(n) > H3 THEN LET n$ 
Cn3 »n* (n) ( TD 10 j 

12© NEXT n 

13© INPUT "firt: "ja* 

14© FOR n-i TO anz 

158 INPUT ("Uieviet "iaS;" arhi 
slt " ; r* § c n 5 ; " ? " J ; u C n ) 

ISS NEXT n 

195 REH BERECHNUNGEN 

28S LET Ss» C a Jf 

2ae for n=a to anz 

22B LET £»&+w{n}: NEXT n 

23© LET prö*S/iö0 

Sie FOR n=l TO ans 

25© LEI" P t r» 5 = £ INT C C tri c n J ,--'p r © ) * 1 

©©*.., sj ..''i©05 

250 LET i Cr? 3 alWT (w (ni ^j 
270 NEXT n 

age rem masstas 

isJ 7KJ> £> *— • U> »** 

3® IS IHK ;! 

31© PLQT 28, IS: 

32© FOR j»»Sl TO 

33a FOR D~i6 TO 116 STEP 

34© PLÖT 2S,n: DSSU 3,© 

3SÖ NEXT n 

3S© PLOT S7,b: 



ö + »£ 



DRRW ©,2i 
111 STEP 



p?; 



XT » 



3 S0 PR INT RT 13.S: "@".;fiT 13,1; ' c 
50" : RT 7,8; : " 3.©©" 
39S REH GRAFIK 

4©© PRINT RT 1,5; INUERSE l;u*; 
INUERSE 
41© LET X -38 

420 FOR i=i TO ans 

430 PLQT X .. 15 : DRAU 8,0: DRAU 
j i Li 3 

44© PLOT X ,, 16 : DRAU . i t i 5 : DRR 
U 9 - © 

450 LET x=:X+I5 

460 NEXT i 

47© LET IS =5 

48© FOR n»I TO ans 



4 SS INK 2 



iNT RT 2S ., m ', b $ l n > 



50® LET i»=i»+2 

51© NEXT n 

S20 INK 

SS3S PRINT Öl;"RUSDRUCK: 

548 PRINT »0; "GENAUE ZAHLEN: 



©00 PAUSE 

sie T '^ 






ü LET 3$=2NKEY: 
a 1 " THEN CORY 



528 IF Z$"- ,B 2" ' 

625 QO TO 609 

S30 REH GENAUE 

S4© CLS 

658 P R 2 NT RT 1 ,, 5 ; 

INUERSE & 

SS 5 PRINT : PRINT 
NT 

SS© FOR n=si TO an 2 



FHEN GO TO 540 
LEN 

INUERSE 1; 
: PRINT : 



57SJ 



:nt 



XI 



INK ©; n$ (n) ; " 



2 ; b $ C n j .; 
■ (n) ;TRB 



PRI 

:1; s; 



SS© NEXT n 

7SS P R int n 1 ; " R U SDRUCK : * R 

71© PRINT tt@; "GRAFIK: *G 

' p4 r> s ■ *' ~ '" ' ' 

>£©" PAUSE 0: LET X*=INKEY* 
73© XF x*B"g" THEN GO TO 2' 
74© IF xia"a" THEN COPY 
758 IF xäss-'e" THEN ST 



77® GO TO 
'S-©®© DATA : 



« fc ., 



! 'd' ! / J : 



'ak 



a) 


Kur t 


6.52 % 


b5 


He i nz 


2.72 % 


ci 


Hans 


4.35 % 


d ) 


us rner 


5 . 33 % 


e) 


H© inri c h 


1©. 33% 


f 5 


Ot 1 


1 - ©S % 


q) 


Ksr 1 


3 , S % 


h ) 


Franz 


11.41% 


i 5 


üoss f 


9.24 % 


J> 


Henry 


IS . S5% 


fc J 


R i chsrd 


1.63 % 


13 


Brunhi tde 


19 - 02% 


ja) 


OSO T9 


7. ©7 % 



100- 



50. 



Oj Li c=3 C3 LJ LJ «- CZl 

a b c d e f g h x j 



ddD 



□. 

m 
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„lfache Vergrößerung*» 



Für ZX-Spectrum 16/48 K! 

V.'ie kann eine 2fache Vergrößerung 
v:n ein oder mehr Zeichen und Gra- 
fikzeichen erreicht werden? 2fach ver- 
größerte Zeichen lassen sich z. B. in 
Spielen oder zu Anzeigezwecken ver- 
wenden. 



Programmbeschreib ung: 
In Zeile 90 wird die Größe des/der zu 
berechnenden Zeichen in einem Feld 
gespeichert. Durch INTK 7 in Zeile 100 
ist das/die in Zeile 110 geprinteten 
Zeichen nicht zu sehen und wird ab 
Zeile 120 in das Feld „a" eingelesen. 



Bei diesem Vorgang könnte es auch, 
ohne daß es vorher in ein Feld abge- 
speichert wird, gleich geplottet wer- 
den. Ab Zeile 190 erfolgt der Aus- 
druck. In Zeile 210 kann die Aus- 
druckstelle geändert werden. Das Pro- 
gramm sollte speziell modifiziert in an- 
dere Programme eingebaut werden. 
Durch das einfache Grundprinzip läßt 
sich das Programm sicher auch auf 
andere Computer übertragen. 
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130 
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170 
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200 

210 

r 9+2 

220 

230 



-FACHE VERBROESSERUNG 



REM 

REM 

REM by Thomas Schroeer 

REM Tel .06383-7490 

REM 

REM 

REM Berechnung + Speichern 

REM im Feld ' &' 

DIM a<8,8) 

INK 7 

PRINT AT 21,05 "1 "a REM Zu vergroesserndes Zeichen 

FÜR b=0 TO 7 

FOR c=0 TO 7 

IF POINT <c ? b) THEN LET a(c,b)=l 

NEXT c 

NEXT b 

INK 

REM Ausdruck 

FOR b=*l TO 8 

FOR c-1 TO 8 

IF a<c 5 b)-i THEN PLOT 80+2*c,b*2a PLOT 79+2*c,b*2s PLOT 80+2*c,b*2-Hs PLOT 

*c ? b*2+i 
NEXT c 
NEXT b 




ames ¥i 



Dieses Programm ist ein darf weitere 9er eingefügt 

Hilfsproqramm Sür Ma- werden, um den Berech- 

~U~ Ä - thematik, daß z. B. das Er- nungsbereich zu erhöhen In 

ifin©S<c weitern v ° n Brüchen er - m 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 



REM KLEINSTES GEMEINSAMES 

REM VIELFACHES 

REM 

REM by Thomas Schroeer 

REM Tel.- 06383-7490 

REM 

REM 

CLS s BEER .1,0 

PRINT "KLEINSTES GEMEINSAMES VIELFACHES= 

INPUT "1. Zahl s ";a 

INPUT "2. Zahl s "sb 

IF a>b THEN LET g-as LET k~bs GO TO 140 

LET g=bs LET k=a 

FOR n=g TO 9999 STEP g 

IF n/k=INT <n/k) THEN SO TO 170 

NEXT n 

PRINT AT 10, 1 5 "I.Zahl s "5a*" 2. Zahl s "5b 

BEER .5,8: BEER .5,6s BEEP 1,4 

PAUSE O 

BO TO SO 



weitem von tmicnen er- ^ der ßten ZaM 

leichtert. Für den ZX- zähU[ bis in Zeüe 150 eine 

Spectrum 16/48 K ganzzahlige Zahl heraus- 
Programmbeschreibung: kommt. In Zeile 170 wird 
In den Zeilen 120 und 130 das KGV ausgegeben, ge- 
wird der Variable „g" die folgt von einer schönen Ton- 
größte und der Variable k folge. 

die kleinste der beiden ein- Auf andere Computer läßt 

gebenen Zahlen zugeteilt. In sich das Programm sehr 

Zeile 140 können nach Be- leicht umschreiben. 



KGVa "jn; AT 21 , O5 "TASTE f ! ! " 



:omputronic 



* 



Irrgarten 1P 



fttrZX-81, 16k 

Am Anfang muß Teil 1 des Program- 
mes eingegeben werden. Mit RUN 
wird es gestartet und auf dem Bild- 
schirm erscheinen die möglichen 8 Bil- 
der. Danach darf unter keinen Um- 
ständen mehr RUN benutzt werden, 
nur noch GOTO!!! Zur Sicherheit soll- 
te das Programm abgespeichert wer- 
den. Nun kann das Hauptprogramm 
eingegeben werden. Sinn des Spieles 
ist es, mit möglichst wenigen 
Schritten Deinen Freund aus dem 
Irrgarten zu leiten. Bewahre die 
Übersicht und leite ihn sicher zum 
Ausgang! Damit es für Dich nicht zu 
schwer wird, kannst Du bis zu zehn 
mal pro Spiel eine Übersicht auf einem 
20 x 20 Schritt großen Feld abrufen. 
Bei der Eingabe "A" läuft Dein Freund 
automatisch weiter, wenn es nur eine 
Möglichkeit gibt. Gibst Du "W" ein, 




wartet er auf Deine Anweisungen. Es 
ist manchmal ganz schön verhext, 
aber keine Angst, Du wirst den Aus- 
gang schon finden! 
Hier noch ein Hinweis für Computer- 



Fans, die einen Q-save besitzen: Das 
Programm erst ganz eingeben, abspei- 
chern und dann erst laufen lassen, 
sonst wird die Software für den Q-save 
zerstört! 



TEIL 1 



WS CS, 76S3 



1© DI 

SS LE 

30 LE7 &*="$ 

*S L.ET C«fe=s"~ 

S© POKE a.S4.18»@ 

5© FOR S=i TO' B 



TB SLOU 
S© PRIWT 



' : ^^%§j§£ ' 



OT © 
S3..0. 



W 



";at £-3,26; 



9© FOR U = l TO 11 



,§s© pp-XMT 



12.8 PRINT RT ÄS-U^O; "*Pl?i" -f R* t T 

o y j + s, P; s 4p m t ro ^4. -s #us V-'*!; : fR?? 
" iaa" next u 

13S PRINT RT 11^14; "^^";fiT IS 



14.© IF fisS THEN GOTO SS© 

ISO FOR ü=3 TO £© 

3=Sa XF ©sb2L OR D«2 OS fis6 THEN 
OT O 13© 

17S PRIMI RT W ; S; CC* C TG 4-5 

CU<7 OR U>iB) .> «■ SB$ C TO 4>i AH£> £ 
W>6 RND U<1~3 i 

18© XF Q=l OR 0=3 OR ßs? THEN G 

qto soe 

IS© PRINT RT 14, sa: tC$t TO 4.) SN 
D> ?U<7 OR U>ISi3+iESt TO 45 RND 

ä©ä NEKT^Ü" ' 

aa© xf q>b then goto ass 



;© F 



TO 



iß; s 



S t TG 



33© PRINT BT E. 

2*0 NEXT E 

25S FRST 

sse FÜR u»e TO £3 

£5*7© FOR E=l TO 3S 

i s s L et u s ? © ^ e + sa * w s =chr $ peek 

(PEEK 1S3SS+SS6£PEEK I63S"?4-E*33# 

S9© NEXT E 

300 NEXT U 

31S NEXT S 

32© 3.&VZ "X" 

33© LEI BS«"" 

34-© Le: i C$ss"" 

3S© STOP 

TEIL 2 

1© CLS 

a© PRINT RT URL. "5"..URL "5";"I 



S R G R R T E N" 

3© PRINT , „ "»HELFE HIR BZTTm HZ 
H OS« LICHST WEN IGEN 5 CHR STTSN 

JRRGftRTEH'. " 
, ., "DU KRMNST 2EHNMRL 
S ICKT B EK ÖHHEM , WE 
" "H" =ä i»'Hü*:CKST * 
.."SOLL. ICH vCN SSL8S 
SEHEN ..WENN ES MUH 
L X CHKE IT G IBT ? ' ' 
, . "güTOMfiTISCH WEITER 



4.© 'PfeZMT 
EINE UEBER- 
NN Du RUF 

58- PRINT 



T WEITER 
EINE HOES- 

S© PRINT 
LRUFEN. " 
7i PRINT" 
GRSE, " 

@8 XF INKEVÄs"" THEN GOTO URi 



., „« "IßRTEN RUF DIE EIN 



S© LET B|=INKEY* 

10© IF B4<>"B" BND B4<>"U" THEN 

GOTO URL "S©" 

11© CLS 

iäa PRINT BT URL "S"*ÜSL "®";"B 

ITTE ETWfi 4 «INUTEN UflRTEN, DERG 
RRTEN UIRD GERRDE RUFGEBRÜT." 

IS© FR I NT ^ , , , "STEUER UNG :, ; ; / Ä * " 

. , , " ** "S st " " 

1 &© O IM X $ f URL " 7© " ^ URL " "7© " i 

ISS FOR SasUfsL : "1 ! * TO URL "7S" 

3,©© LET 1$ t URL "l"/OJ="jg" 

1*?© LST I $ t SJ ,, URL " 1 " > =' ! .^i;: 

i«0 LET I4t6S,UfiL "78")="^" 



IQ© LET I4ty.PL "70" ., S^-^ ="äR" 

2 OS NEXT © 

El© LET X=VRL "3S" 

SSO LET V'=X 

£30 FRST 

34S FOR ö=yttL "1" TO URL "9" 

2S8 IF ©=URL "1" THEN GOTO URL 

SS0 LET XbINT (RND*UfiL "S©"+Ufi! 

2"7© LET Y = INT CRND*URL "S©"+Ufll 

S5© IF 2$(XTÜflL M i",YJa"i H GR . 
$ C x -URL " 1 " . Y i s= "E" ' OR X $ f X „ V +USS 



5"> *SGN '< 
NT ?RHI>#v 



QÖTO URL "260" 
2=B© LET X 1 = C RND < URL 
RND-URL ",S"J 

3©© FOR U=URL "1" TO I* 
RL "S"3 4-URL 4V S" 

31© LET Yi=(XloUfiL "e"i*SSN i'R 
MD -URL "*S"5 

LET XlstXlsyRL "0") *SßM CRN 



ie ©" 5 



D-URL " e S"J 
33© LET XlsXÜIYl ssUßL. 
L ET VI =Y 1 * C X 1 «URL 
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35^ FOR E=URL "1" TO INT (RHDSv 
Rt "S"H *URL "2" 
35© LET I*CX,Y) «"g" 

38© XF Yl=UftL .X©" THEN IF ISSXr 

OR I$tX +X 1 , Y w 



X1,,Y--URL "1") =s"i 

RL.'*i")="Ä" THEN GOTO URL "&2S" 

4.®© XF XlaUflL "Ö" THEN SP X$(X-r 
URL "1" ,Y+Yli =a"S" OR I£CX-URL "X 
" ,Y+Y1) «"!§" THEN GOTO URL "420" 

4-10 6GTQ URL "4-4-0" 

&£® JF 1$ (X+X1,Y+Y13 = "Ü** THEN S 
GTO URL "4-4-©" 

*3» GOTO URL "49©" 

4.4.0 LET X=XfXl 

*5» LET YaY+Yi 



45 ö XF fö=URL 



THEN XF I5LX-KK 



I / Y+Yl)="g" THEN GOTO URL "S3SS" 
4-70 XF I*CX / Y> -"W THEN GOTO VS» 

L "fiS©" 
4.88 NSXT E 

ise next y 

58S© XF ObURL "1" THEN GOTO URL 
"310" 
510 NEXT Q 

SS© GOTO_UfiL ;"S5^__ 

540 t ET S $ f X ix 1 ,, Y * Y 1 3 - " ft ' £ 

SB© GOTO URL "El©" 

57® LEX X=UBL "SS" 

SS3 LET Y«X 



590 LET MssURL 



" li 



S©e LET HsWL 
SIS FOR SsVflL 
520 LET X 1 s t S =sUI 



TO URL "3** 

c, a"3 - es »ual. 



53 i 



IT Y2 



•*3"3 



" THEN 



S4-S XF X £ C X *X X « V *Y X i ~- "1 
OTO URL "68S" 

SS© NEXT S 

ES3 LET X=X+Xi 

578 LET YaY+Yl 

700 LET UsUflL "1" 

__71© XF I*(X-Y1,Y+XI) ="i". THEN L 

£.t y =y * UmL "£" 

7£5g XF I*CX+Yi,Y-XU a"S" THEN L 

ET Üaü+ÜRL "X' e 

73® XF I*fX,YS st"ft" THEN GOTO UH 
L "3©©©" 

74-B XF IStX+Xi ,Y^YLi s"fl" OR X$ t 
X tXl/r-ä-YD's"!" THEN LET M sW + URL 

7©0 POKE URL "iS*I3",UflL "©" 

SS© LET NsNtUfiL "1" 

Si@ CLS 

SS© SLOU 

S30 PRINT fiT URL "-3".= URL "ö";Ug 

34.0 PRINT RT URL "0",URL "IS"; C 
! Q" RND SsÜflL "B"J; f"R" RND S=UR 
L " I " ? ; f " U " RND S «URL " 2 " J ; ( " L, " 
RKD SaVflL "3"J 

SSB PRINT BT URL u ai",üflL "IS"; 
,f O";TflB URL ,! I5";"sI)",TfiS URL " 

X 3SO FOR O-URL "SO" TO URL "17" 

STEP URL ** — X " 

370 PRINT RT Q,, URL "16"; "D";TRB 

URL "IS": " (ftj ";TRB URL "15";" X 

M iTRB xs; " " 

aas next o 

3ge LET A$bINKEY* 

9S8 XF BS = "ß" RND R* = "" THEN LE 
T R $ ss. C * * 7 " " flND U -URL " S " 3 * C " 3 " RN 
;> y sVßL " S " i * i * s 5 " BND U =URL " 3 " 3 

3X3 XF R$ = *•*-" RNO INKEY$s"" THEN 

GOTO URL "SIS" 

93© XF R$s"" THEN LET ß^alMKEYS 

33© XF R*sb"U" OR R*s"ß" THEN LE 
T B$«R$ 

94-?B LET S»S+ (n$ = "S"3 - Cft$sa"S"i *U 

£iL "S^SiRIe^S") 






•CUR! 



5s5+V 




95© XF S>MRL ;e 3" THEN LET. S=S 



'^7S LET X X « £ S äURL " 2 " 3 -CS eVftL " 
0" ) 

SSS LET Y X ss C 3 =UflL "1"J - CS -URL ' ' 
3") 

«S0 XF S*bs m H" THEN GOTO URL "SC^ 



ff? "' 



= "6" 



l HEN GOTO URL 



fiS""P 



1-3S3 FOR 

■KTSEQ 



-L v5 



.; TRe 
: " X 



101® XF E=S RND (R^="0" 

" J THEN GOTO URL "1SS@" 

1®S@ XF RSsr"S" THEN GOTO URL "11 

X€^" 

1930 XF R*s="S" THEN SOTO URL "1© 

BS" 

1^4.® XF R*<>"7" THEN GOTO URL "© 

90" 

las© XF U-CURL "B" THEN GOTO URL 

«URL "16" TO UR 
i-' vhL "— 1*' 
1®7B PRINT RT O^ÜflL "15"; 
URL "IS"; " (S> "; TAB URL " 
" ;TfiB' 16; " " 

lese next & 

10S® PRINT RT Q-J-URL "2", URL "15" 

: " ' " ; TRB URL " 13" ; " " ; RT 8 , URL 
" XS ** : ' 5 « " ; TRB URL " IS " ; "fl" ; RT & .,- 
URL "IS";' 5 ";TRB URL "16";" * ! 

iiee goto url ••©&©" 

llie PRINT BT URL "IS" ..URL "15"; 
■' |g ";TRB URL "16"; "ul" 
llS'e Xr UoVflL ""4-" RND UoUftL "3 
= BND UoyflL "B" BND UOURL "7" 
THEH SOTO URL "S9©" 

1X30 FOR 3=UßL ' ? 16" TG URL "S" E- 
TER URL "-1" 

1143 RR XMT fIT URL ■*17 A / 0;"0 °'}TH 
E s; "H ";TRB Q; "ü " 
1X50 NEXT Q 

UB8 PRINT BT URL "17", URL "S";" 
";TPB URL "6";" ,ä ; TRS URL "6"; " 

117© GOTO URL "668" 

1280 PRINT BT URL "IS", URL. "15"; 

" S "«TRB URL ! '1S' ! .;"L ! ' 

ISIS XF U<>URL **S" flND UoURL "-4- 

" RND WOURL "S" AMD UoURL "B" 

THEN GOTO URL "090" 

1228 FQR S -URL "XS" TD URL "2^-" 



-? ■?■ 



0";TR 



IS- 3© PRINT RT URL 
B ö; " H";TRB ©j " L" 
1S4.8 NEXT & 

XSSe RR XMT RT URL "17".,9;" ";TfiB 
Q; " ";TRE ©; " " 

xss^ göto url "ese" 

130S FOR öaURL "IS" TO URL "21" 
13 le PRINT RT ©-URL "1",UÖL "IS" 



OT 



» URL " 15" * " O " - Pc:T 
- r>' ±m ., ,. f ag3 " .TRB* URL 



132© NEXT Q 
133® PRINT R" 
- « » ; TRB URL 



©-URL "X"., URL "16 
1 IS"; " " «TRB URL 



^^^s% GOTO URL "BBS" 

IF H=URL "&" THBH GOTO URL 



"B98 >! 

2010 LET H=H-UPL "1" 

£3252 L,^T EY=CY»vRL "SS" ) * t CY+VRL 

" 15 " * -i URL " 7© " 3 ■* URL " 7ß" 

aase lst sx=t x - u rl "Sß"j*t{ x *url 

" 1 © " l < URL "7p " > 4- URL "70" 
20 4L L ET R Y sCY- URL " £ @- " 2 * S £ Y -URL 
"10"> >URL "0"-J +URL. "X" 

2050 L ET flXs (X-UfiL "18") ^ i C X -UR L 
"lß"J >URL "©"5 -fURL -"-"X" 

aase l et isrx .- y > « rs p" 

2^70 CLS 

2 f 3S0 P R INT RT URL " 2 ' \< URL " S " ; 

ass-a for R»flx to ex 

S 100 RR INT TRB URL "S";I$VP,ßY ~ 



'omputronic 
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£130 PZi INT "RT * URL." ^S" ,URL. "IS";'" 

5 'S W W Fl ,• P ,ä ?1 t'i ^ 



sis5 prxht^rt'uSl "©".U&L 



^' # 



'3€e : 5© j.f m IHKEYS="M" THEH STOP 



JLS i li - li.1 



9- © © 3 -2- R U I 

SSI© GOTO 



RhGhRTEH 3D 




SS 



1 



SSM ÖOl^^yp 



MM 



KU:! 



. ■I 



IBI 



läTSfe 



* ät§&p»-BiW '-St , 






||§§||y; ; 

-llllillL 







■HHHI*£?1 



jsati 







Hi 



m&EsmvR 



# 
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Hardcopy ¥ I . i"| 



Das hier vorgestellte Programm 
'Hardcopy" für den Dragon 32 
oder 64 erzeugt einen Bildschirm- 
ausdruck auf dem Seikosha GP- 
100 A Drucker oder einem ähnli- 
chen Modell. Das Programm ist in 
positions-unabhängigem Maschinen- 
code geschrieben (PIC). Da ein Punkt- 
für-Punkt-Ausdruck in einem sehr 
kleinen Bild resultiert, wurde eine et- 
was andere Form gewählt. Das Bild 
wird um 90 Grad gedreht und zwei- 
fach vergrößert auf dem Drucker aus- 
gegeben. Eingegeben werden kann 



Hardcopy mit dem abgedruckten 
Lade-Programm. Eine wichtige An- 
merkung muß noch gemacht werden: 
durch POKEn in Adresse 7697 mit 
oder 255 wird bestimmt, ob das Bild 
original oder invertiert ausgedruckt 
werden soll. Der Ausdruck selbst dau- 
ert ungefähr 2-3 Minuten. 

Hinweis: 

Vor dem Start des Programms mit 

EXEC 7741 sollte es abgespeichert 

werden mit: CSAVEM"HARDCO- 

PY",7697,8848,7741. 




F> R C L. EI Fi IR 5 

1 m E O R R «= T «S 97 T O © 1 4 7* S T E F" X O 

a£. Ö C == & 

3«3 FOR B*0 TO S« 

40 PRINT R + B; *•«"* = IHPUT R$ 

5 © F" O K E R -*- O ., V R L. < * a Z< H " B ■+■ R * > 

£-> Ö »„: ===== C: ~*~ V R L <.' ' ■ £?< Hl ■ " ■+- R sfc > 

7© NEXT 

S © I H R U T "RR U E R 3 U M ME"" .? F : " 

S»© I R R< >C THEN B = Ö = RR I NT " FEHLER ! 2TE I L.E 

HEU EINGEBEN« ! /"* * GOTO20 ELSE HEXT 



F'SS^F' Ei: I :E> ~F"f*&& 

FF 3-4- 13 EäE 1 

6 ES Flip:- SC Eli? 3@ 

F>'"~u^?F":SAArr,rr,n~- - 12 1 :9 
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Computronic 



Schon gewußt? | 



Compumask 

SCHLUSS mit dem unproduktiven 
Stöbern in überall herumliegenden 
Programmierunterlagen . 
SCHLUSS mit dem Frust und dem 
Zeitverlust! 

Hunderttausende besitzen bereits ei- 
nen Heimcomputer, aber nur wenige 
sind bis zum Programmieren von Spri- 
tes und Musik vorgedrungen. 
DAS IST AB SOFORT ANDERS! 

COMPUmask-Merkmale (mit COM- 
MODORE-Copyright-Genehmigung) 
Abrieb- und reinigungsmittelfester, 
veredelter Druck (kein Siebdruck!) mit 
Schutzschicht auf reißresistenter, fle- 
xibler, bis 8CTC wärmefester Kunst- 
stoff-Platte, nur 0,4 mm stark. Rund- 
fenster für Kontroll-Leuchte. Ober- 
und Unterseite voll ausgenutzt für die 
Aufnahme der am häufigsten vorkom- 
menden Daten, Funktionen, Befehle, 
Zeichen, POKEs, Tabellen usw. (siehe 
Rückseite). Oberseite 2farbig, wobei 
die auf den Bildschirm bezogenen Tei- 
le zur leichteren Orientierung farbig 
(hellocker) unterlegt sind. 
Die Lieferung erfolgt in PVC-Mini- 
grip- Verschlußtasche mit Kartonver- 
stärkung für Versand und Aufbewah- 
rung. Der durchschnittliche Verkaufs- 
preis liegt bei 29,80 (inkl. Mehrwert- 
steuer). Der Verkauf erfolgt über den 



Impressum: Computronic erscheint 
monatlich im Verlag: Tronic-Verlags- 
gesellschaft mbH, Landstr. 29, 3444 
Wehretal 1, Tel.: (0 56 51) 4 06 43/ 
4 06 93. Redaktion: (Verantw.) Rainer 
Beck, Axel Grede, Frank Brall. Freie 
Mitarbeiter: G. Wagner, Volker Bek- 
ker, Rolf Freitag. Gesamtherstellung: 
D + V Paul Dierichs GmbH + Co. KG. 
Kassel. Vertrieb: Inland (Groß-, Ein- 
zel- und Bahnhofsbuchhandel), sowie 
Österreich und Schweiz: Verlags- 
union, 6200 Wiesbaden. Anzeigen- 
verwaltung: E. Herwig. Anzeigen- 
preis: Es gilt die Anzeigenliste Nr. 1. 
Bitte Media-Unterlagen anfordern. Be- 
zugspreise: Einzelheft (Inland) DM 
5,50, Abonnement (Inland) DM 55,-, 
(Ausland) DM 75,-. Autoren und Ma- 
nuskripte: Bei Zusendung von Manu- 
skripten und Datenträger erteilt der 
Autor dem Verlag die Genehmigung 
zum Abdruck und Versand der veröf- 
fentlichten Programme auf Datenträ- 
ger. Für die mit Namen des Verfassers 
gekennzeichneten Beiträge übernimmt 
die Redaktion lediglich die presse- 
rechtliche Verantwortung. Alle in die- 
ser Zeitschrift veröffentlichten Beiträ- 
ge sind urheberrechtlich geschützt. 
Nachdruck (auch auszugsweise) und 
Vervielfältigung nur mit ausdrückli- 
cher Genehmigung des Verlages. Für 
unaufgeforderte Einsendungen von 
Manuskripten, Tonträgern und Soft- 
ware wird keine Haftung übernom- 
men. 



Fachhandel. Folgende weitere COM- 
PUmask sind in Bälde erhältlich: Für 
VC 20: PEEKs und POKEs, ExBasic 
Level IL Für C64: SIMON's BASIC, 
PEEKs und POKEs, ExBasic Level IL 
Blanko-Masken für VC 20 und C 64, 
beschreib- und radierfähig, für indivi- 
duelle und zeitweilige Beschriftung bei 
der Programmierarbeit. Stapelbar. Lie- 
ferung in 5er-Packs. Weiter sind Com- 
putermasken in Vorbereitung für eine 
Reihe anderer Masken und Modelle. 

INHALTSVERZEICHNIS 
COMPUmask VC 20 

1. Mehr als 80 BASIC-Begriffe 

2. 20 Fehlermeldungen 

3. Zeichen der Rechenoperationen 

4. Zeichen der logischen Operatio- 
nen 

5. Bildschirmausgabezeichen der 8 
Zeichenfarben im Programm-Mo- 
dus 

6. Bildschirmausgabezeichen der F- 
Tasten (Fl - F8) im Programm- 
Modus 

7. Bildschirmausgabezeichen der 4 
Cursor-Richtungen im Pro- 
gramm-Modus 

8. Bildschirmausgabezeichen für 
CLR/HOME und INST/DEL im 
Programm-Modus 

9. POKEs für Bildschirmrahmen und 
-Hintergrund 

10. POKEs für 3 Stimmen und insge- 
samt 5 Oktaven 



11. POKEs für Bildschirmpositionen 
und ihre Farben 

12. POKEs für die Zeichenfarben 

13. Umrechnung BINÄR/DEZIMAL 

14. Zeiteingabe 

15. Beschreibung der Wirkungsweise 
wichtiger Funktionstasten 

16. 8 wichtige Drucker-Operationen 

17. 7 wichtige Floppy-Operationen 

18. 71 als Variable ungeeignete Wör- 
ter 

19. Tafel der Speicher Organisation 

20. Bildschirm-Codes 

21. ASCII- und CHR$-Codes 

22. 3. Demo-Programme für Sound 
und Grafik 

23. BINÄR/DEZIMAL/HEXADEZI- 
MAL-Tabelle 

COMPUmask COMMODORE 64, wie 

VC 20, jedoch: 
5. Bildschirmausgabezeichen der 16 
Zeichenfarben im Programm-Mo- 
dus 

12. POKEs für 3 Stimmen und Ge- 
räusch über je 4 Oktaven 

19. entfällt 

weiter zusätzlich: 

24. POKEs für Hüllkurve, Wellen- 
form, Filter und Notenwerte 

25. POKEs für Sprites und Bild- 
schirm-Scrolling 

26. Sprite-DATA- 
Berechnungsschablone 

27. Sprite-DEMO-Programm 
gesehen bei: Fa. J. Winkler, D-5760 
Arnsberg 1 
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Abonnement 



zum 



Bitte ausschneiden und senden an: 

Tronic- Verlag, Postfach 41, 3444 Wehretal 1. 

Hiermit bestelle ich die Zeitschrift »Computronic« ab Heft Nr 

Jahresabonnementpreis (12 Ausgaben) von DM 55,- incl. Versand, Inland 
und DM 75,- incl. Versand, Ausland. 



Name/Vorname : 



Straße, Nr. 



Fix, Ort: 



Ich wünsche folgende Zahlungsweise 
D Bargeldlos durch Bankeinzug: 



Bankleitzahl: 



Geldinstitut: 

D gegen Rechnung 



D gegen Vorkasse 

(betreffendes bitte ankreuzen) 



König Nr.: 



Datum, Unterschrift 



Abonnements-Kündigungen: 

6 Wochen vor Ablauf des Jahres-Abonnements. 
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Computer-Börse 



Verkäufe 



••••••••••••••••• 

2 Der ganz heiße Bör- 

• sentip vom eigenen 

• Computer 

• Stockmaster: grafische 

• Stock-Control: mathe- 
mat. Auswertung f. 

• Spectrum 48K je Pr. 49,- 

• DM zus. nur 79,- DM. 

• Töngi 

• Aspeltstraße 4 
f 6500 Mainz 



ZX 81/16 K Bundesliga-Fuß- 
balltabelle 172. Liga mit 
HeinWAuswärtsbilanz Cass. 
20,- DM + Listing 5,- DM + 
Info Gratis + Freiumschlag, 
H. W. K. Bostel, Friedenstr. 
14, 2084 Reilingen 1 

Verk. ZX 81/16 KCMEMO + 

80 Pr. + Reset + Shift Look + 
Rem-Ansteuerung + gr. Ta- 
statur + Bücher + 90 Listings 
+ Ein/Aus + gr. Netzteil für 
350,- DM: Suche Spektrum 
48 K, T. Bachmann, Johannis- 
bruch 9, 2357 Springe 1 
DDDnnDDDDDnnnnonDD 

D D 

□ Tl 99/4A + Exbasic + □ 

g div. Bücher -FRec + Ka- g 

D bei + Basic-Kurs, VB □ 

ü 750,- DM. □ 

R Tel.: 28 61 /48 45 H 

d Sa. ab 18.00 Uhr p 

D * D 

DDDDDDDDDDDDnDDDDD 

Verkaufe ZX-8i + 16 K + 
Drucker VB 300,- DM. Suche 
Atari- 600XL oder C-64. Dirk 
Wylezol, Am Mühlbachbogen 
41 b, 8052 Moosburg 

C-64-Superprogramme ge- 
gen Unkosten oder Tausch. 
Gratisliste bei Postlagernd 
058542 B, 7900 Ulm/Donau, 
Diskette oder Kassette 

Atari 400/800/600 XL/800 XL 
Software auf: C. + D. Liste 
anfordern bei: Power-Game 
Versand, Oerlinghauser Str. 
37 b, 4800 Bielefeld 18 



Verkaufe 

Anrufbeantworter 

Drahtlostelefon 

Telefon-Anlage 

Eurosignal 1200,- DM 

div. USA-Telefone 

Info bei: 
Reinhard Winner 

Höchbergerstraße 62 
87 Würzburg 



oooooooooooooooooo 
ö Spielend Basic lernen Q 
O * Kass. 8 

O mit 10 Pr. + Listing + o 
5 Erklärung + Tips + g 



8 Tricks 20,-. 

O A. Meuser 

S Goethestraße 18 

O 5205 St. Augustin 1 



o ZX Spectrum Super g 



O Software 



O 



OOOOOOOOOOOOOOOOOO 



Verkaufe Taschenrechner Tl 

59, Disketten 8 Zoll SS/SD, 
Preise VHS. Willi Hirschlein, 
H. v. Hohenlohestr. 44, 6990 
Bad Mergentheim, Tel. 
7931/41605 



Suche/Tausche Software für 
Atari 400/600XL/800XL/vor- 
zugsweise Tausch, Christoph 
Pieper, Im Fuchsloch 37, 
6901 Dossenheim, Tel. 
62 21 / 86 96 44, schickt 
mir eure Listen/ ich warte 



ZX 81 mit 64 KB, 5 Monate alt, 
in Philips-Terminal zu verkau- 
fen, als Beigabe 15 Spiele für 
den ZX 81. Angebote an: M. 
Kraemer, Weidenweg 6, 4970 
Bad Oeynhausen. 



[ Here is Wimpy! 

ta Hello User, biete für 

j| C-64 Disk beidseitig mit 

■ Topprogrammen für DM 

|Zj 50,- auch Tausch. 

i Mr. Wimpy 

i 4350 Recklinghausen 

i Postfach 1017 21 



Commodore C 64 nur DM 

679,-, Floppy 1541 nur 679,-, 
Drucker MPS 801 nur DM 
669,-. Disketten 10 Stck. 55,-. 
Alle Geräte neu mit Garantie. 
Anruf lohnt sich!!! Tel.: 
75 62/34 30!!! 



Tl 99/4 A Ext.-Spiel nur für Er- 
wachsene - bitte Alter ang. 
zum absoluten Preishit von 
nur DM 10,- im Umschl. an T. 
Karbach, Remscheider Str. 
18, 5650 Solingen 1 



** Apple Schallplatten/MC 

-Verwaltungsprogramm für 1 
Laufwerk! Suchen: Titel od. 
Nr. ***600ü Eintr./per Zugr. 
insg. 1800 Titel! DM 40,- bei 
VK: H. Lössin, HH 50, Arnold- 
str. 48 



Tl 99/4A. Erstelle Druckehi- 
sting v, Ihren Programmen in 
Tl- u. ext. Basic, je Pgm.-Zeile 
4 Pf. + 2,50 DM f. Portokass. 
m. V.-Scheck o. Briefmarken 
an H. Schwab, Loch 21 , 8504 
Stein 



OOOOOOOOOOOOOOOOOO 

o o 

o Ti-99/4a und alle Atari- o 

5 Computer für Ti: g 

O Adventure Modul mit O 

g Cassette Mission Impos- § 

O sible und Pirate Adven- o 

O ture: 160,- DM für Atari O 

g Star Raiders für 70,- DM g 

O bei O 

g O. Toffolo g 

O Tel. 46 62/ 17 33 O 

o o 

OOOOOOOOOOOOOOOOOO 



Strategie auf Atari. Erobern 
Sie den Pluto! Spannendes 
Computergesellschaftsspiel 
für2Sp. Nur 19,50 incl. D. o. 
C. zzg. Porto + NN. bjh-Vi- 
sion, Am Sportplatz 6, 2061 
Elmenhorst 



Ankäufe 



OOOOOOOOOOOOOOOOOO 

o o 

9. TI-99/4A g 

o Suche Extended Basic o 

O Modul evtl. Tausch ge- O 

g gen Editoriassembler g 

O sowie Maschinen- o 

O Sprachprogramme z. B. g 

§ Flugsimulator und Ex. g 

O Basic Spiel Miner 2049 o 

O (USA- Version). O 

g Tel. 71 32/3 76 08 g 

O O 

OOOOOOOOOOOOOOOOOO 



Apple II suche Programme, 
Schachspiele, Flug-Simula- 
tion, versch. Vorspanntitel, 
Grafik für Video-Filme, T. Pa- 
vone, Heilbronnstr. 6, 7146 
Tamm 



Suche Seikosha 6P-100A 

Drucker mit Interface für ZX 
Spectrum, Lothar Schröder, 
Dellchenstraße 3, 6731 Fran- 
keneck 



Suche: Gute und billige Soft- 
ware auf Diskette für 64K Ata- 
ri 600XL. Angebote an: Mi- 

f chael Ebeling, Riepener Stra- 
ße 7, 3061 Beckedorf 



Suche Atari Diskettenstation, 

Aussehen egal, Hauptsache 
sie funktioniert. Bitte anrufen 
unter Berlin 30 / 

4 93-19 27 



ZX Spectrum Soft- und Hard- 
ware. Preiswert durch Direk- 
timport. Info bei: Ursula Kunz, 
Junge Halden 3, 7500 Karls- 
ruhe 41 



Suche Software für Ata- • 

ri 600XL, zahle gut! • 

Schickt eure Liste an: £ 

Mario Noack, Raabestr. • 

36, 3420 Herzberg • 



Kontakte 



Hallo Spektrumfreaks. Ich 

möchte mit euch gerne Prog. 
tauschen. Liste, ob groß oder 
klein, an: Robert Weidinger, 
Schönmetzlerstr. 10, 8050 
Freising oder Sams- Diens. 
81 61/43 72 



Kontakt mit MZ700-Leuten ge- 
sucht. Tel. 05 1 1 / 42 29 75 



OOOOOOOOOOOOOOOOOO 

o *** Atari-Spectrum- o 

o User-Club *** o 

O monatl. Info, bundesweit o 

O organisiert, riesige o 

g Prog.-Bibliothek usw., g 

O melden bei: o 

g ASUC, Am Schürhof 17 g 

O 4905 Spenge o 

O Tel. 52 25 / 20 68 O 

OOOOOOOOOOOOOOOOOO 

DDDDDDDDnDDDnnnnnn 

□ D 

□ Comp.-Club 
n Bad Hersfeld 



D 
D 
D 
D 
D 
D 
D 

□ 6438 Ludwigsau 1 a 

□ oder Jugendhaus Hers- □ 

d feld d 

□ □ 

DDnnnnnaDnnnnDDDDD 



□ sucht Mitglieder! 

□ Kontakt über 

□ Roland Reyer 

d Am Giegenberg 21 



Tausch 



Tausche ZX Spectrum- 
Software (1 6/48), auch Mi- 
crodrive-Software benötigt. 
Michael Jedral 
Horststraße 6 
6729 Leimersheim. 
Schreibt schnell. Suche Ko- 
pierprogramme für Micro- 
drives 



Suche/Tausche Software für C 

64 und Atari 600/800 XL. Vor- 
zugsweise Tausch. 
Oliver Kellner, Haydnstr. 39, 
6905 Schriesheim, 
. Tel. 62 23 / 6 59 39 

VC 64: Tausche irre Superpro- 
gramme, über 40 echte Spiel- 
hallen-Games. Liste gegen 
Rückporto bei Michael Bran- 

• denberger, Vor der Gasse 82, 
CH-8200 Schaffhausen 



ZX-Spectrum 

Software und Interessen- 
austausch 

Monika Baumgartner 
4021 Linz 

Postfach 142 Austria 
Bitte Liste beilegen 
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Computer-Börse I 



Verschiedenes 



16 K Modul f. ZX81, 65,- DM. 
Trak-Ball für Atari + Commo- 
dore, 1 Fevertaste, 99,- DM. 
Beides neu, unbenutzt. Ver- 
kaufe (2 DM - 4 DM) + tau- 
sche Spectr. Softw. Liste gr. 
T. Schröer, Hohlstr. 11, 6791 
Steinbach 



UFO-Forschung. Informa- 
tionen über UFOs etc. kosten- 
los. Suche Interessenten zum 
Aufbau einer Computer-AG (c 
64), spez. für wiss. UFO-For- 
schung! H. W. Peiniger, PF 
2361, 5880 Lüdenscheid 

VZ 200 Softw. Info g. Freium- 
schlag. W. Fischer, Friedrich- 
str. 14, 6463 Freigericht 5 



DDDnDDDDDDDDDaDGDD 



D 
D 

D 
□ 
□ 
D 
□ 
D 
D 

a 

D 
D 

D 
D 
nDDDDDnDDÜDnDGGDDD 

Die richtige Soft-Hardware? 

Ich sage Ihnen in welcher 
Zeitschrift. Info gegen frank. 
Rückumschlag bei: M. Kiwitt; 
2000 Hamburg 74, Postlage 
RND 



□ Orig. engl. Software 

j=j von EMJAY, (Wargame 

□ News, The War Machi- 
n ne), für Commodore- 

□ Rechner ab 16k und 
D CBM 64! Näheres gegen 
° Freiumschlag von: 

□ H. Topf, A.-Bucherer- 
D Straße 63, 5300 Bonn 1 

D 



Tl 99/4A Software Service 

von Action bis Praxis. Info 
geg. 1. - Rückporto Behring- 
str. 45, 4600 Dortmund 50 



C-64-Synthesizer: ca. 40 K, 
echte Noten, Partiturediting, 
Notenausdruck, Direktein- 
spielung + Notenumsetzung, 
Supersound. Info von Autor 
W. Kracht, Espellohweg 38, 
2000 Hamburg 52 



Roulettesoftware f. Sharp PC 
121 1/1 2/4551 /PC 1500. Rou- 
lettesystemprogramme »Auf 
Dauer gew.« »AD Astra« 
»Number one« «Acclaim« 
»Plein Prive« »Accord« DM 
550,- Cass. B. Nowotny, Gise- 
lastr. 3, 8000 München 40 



An alle SF- und Fantasy- 
Freunde! Jeweils 8 Mitspieler 
für Strategiespiele gesucht. 
Mit Gewinnchancen. Näheres 
gegen Freiumschlag von: H. 
Topf, A.-Bucherer-Straße 63, 
5300 Bonn 1 



ZX-SPECTRUM! Spie 
lend BASIC lernen Ca. 
mit 10 Pr.+Listing+Er- 
klärung+Tips+Tricks für 
denZX. 10,- DM bei 
A. Meuser, Goethestr. 
18, 5205 St. Augustin 
NEU -SUPER ZX Spiele - 



Spectrum Softw. z. B. M. Mi- 
ner 8,-; ZOOM 8,-; Liste + 
kostl. Programm anfordern, 
Karte genügt: H. Novak, Eger- 
länder PI. 19, 6053 Oberts- 
hausen 2 

TI-99/4A: ca. 90 Tl-Basic und 
ca. 80 Ex-Basic Programme 
zu verk. Info g. Rückum- 
schlag. B. Knedel, Tulpen- 
gasse 16, 3171 Weyhausen, 
Tel. 53 62 / 7 1 1 87 



Aktion: Billige Kleinanzeigen 

Liebe Leser, 

wollen sie ein Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Computer, Software oder 
Kontakte zu Computer-Clubs etc.? 

Dann nutzen Sie jetzt den Klein- 
anzeigenservice von „Compu- 
tronic". „Computronic" ist die 
Zeitschrift für Home-Computer- 
Besitzer. Sie erreichen durch uns 
eine Vielzahl von Lesern im In- und 
Ausland. 

Und so wird's gemacht: 

Kleinanzeigen-Coupon ausfüllen 
(alle Zeilen können ausgefüllt wer- 
den) und gegen 

Vorkasse von DM 4,50 einsen- 
den an: 

Tronic-Verlag 

Postfach 41 

3444 Wehretal 1 

Also, schnell ausfüllen und ein- 
werfen in den nächsten Postkasten. 
Dann ist mit Sicherheit Ihre Klein- 
anzeige dabei. 





Computronic Iy161I1c1I1ZC1(JQI1 nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik: 

D Verkäufe > D Kontakte D Geschäftsempfehlungen 

D Ankäufe D Verschiedenes D Tausch 

folgenden Text: 



Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 

Preis für Kleinanzeigen: Private Anzeige DM 4,50 je Zeile 

gewerbl. Anzeige DM 8,00 je Zeile 
Chiffregebühr DM 10,00 je Anzeige 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



privat D gewerbl. G 

(bitte ankreuzen) 



Computronic 
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VC-64 *^ K = 

D = 15, 
Mauern, Widerstand 

ZX-Spectrum K = 12,— DM 
Inventur 

TI 99 K = 8,50 DM 

Drei-Kronen-Spiel 

Zahlenputzen 



VC-20 K = 11,50 DM 

D = 18,— DM 
Hangman, Saurer Regen, 
Quadr. Gleichung 



ZX-81 K= 8,50 DM 

Invader, Gun-Man 



Dragon 32 

Blizzard 



K = 6,— DM 



Apple II K= 14,50 DM 

D = 19,50 DM 
Wilder Westen, 
Karambolage, 
Maskengenerator 



Atari 

Mastermind, 
Schlangenkrieg 



K= 10,50 DM 



TI 99 ^^*K = 

Karl der Käfer 
Alien-Landing 


14,50 


DM 


VC-64 K = 

D = 
Space-Comets 
Erdspalte 
Sprite-Data 


15,50 
23,50 


DM 
DM 


Apple II K = 

D = 
Musik-Maker 
Mission-Adler 
Disk-Catalog 


9,50 
19,50- 


DM 

DM 


Sharp MZ 700K = 

Kalender 
Sharp PC 
1500 Lotto 


8,50 


DM 


Dragon K = 10, — 
32 

Space-Flight, Geosoft 


DM 


ZX-81 K> 10 — 

Go-Ball, Grand-Prix 


DM 


ZX Spectrum K = 

Missile-Comment 


6,50 


DM 


Atari K = 

Tank-Battle 
Oil Panic 


12,50 


DM 


■ ■ 




VC-64 



Data Generator 
Autostart 
Bestellschein 
Roadpainter 



K = 16,50 DM 
D = 23,50 DM 



Dragon 32/64K = 8,50 DM 
Wargames 



Apple II 

Snake 
Super Datei 
Shape-tables 



K = 12,50 DM 
D = 19,50 DM 



VC-20 

Bestellschein 
Glückv 



K= 8,50 DM 
D = 15,00 DM 



ZX-81 K= 10,— DM 

Moon-Crash 

ZX-Draw 

ZX-Spectrum* K = 13,50 DM 

Defender 

Lui der Wurm 

Alternativer Zeichensatz 

TI-99 K = 14,50 DM 

Jack the Digger 
Noah - 2099 

Atari K = 12,50 DM 

Tomstone-City 

Schneevogel 



Bestellkarte-Cassettenservice 



Computronic 

Alle im Heft abgedruckten Programme können als zusätzlicher Service, zum Selbstkostenpreis, über den 
Verlag bezogen werden. (Ausland nur gegen Vorkasse) 



Die Zustellung erfolgt: gegen Vorkasse D 
innerhalb von 1 Woche 



oder Inland per Nachnahme D 
+ Versandkosten 



Achtung: Disketten k önnen vorerst nur für: Apple 

VC-64 
VC-20 bezogen werden! 

Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 

Bitte liefern Sie mir: 

G Cassette für __G Anzahl 



System 



D Diskette für 

zum Preis von gesamt 



System 



-D Anzahl 
.DM 



Name/Vorname: 



Straße, Nr. 



PLZ/Ort: 



Datum, Unterschrift 
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Kassettenservice 



Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. Alle im 
Heft abgedruckten Programme sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser verlieren je- 
doch schnell die Geduld am Programmieren, sollte etwas einmal nicht klappen. Die häufigste Ursache von Störungen im 
Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal keine Zeit zum Programmie- 
ren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert und können jederzeit mit 
beiliegender Bestellkarte zum Selbstkostenpreis bezogen werden. 
Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein. 



Rückgabe-Garantie: 

Wir garantieren: 

# kostenlosen Umtausch von defek- 
ten bzw. transportgeschädigten 
Datenträgern! 

• die Zusendung der Umtauschware 
erfolgt noch am Posteingangs- 
tag! 

Bestellung per Telefon: 

Wenn es schnell gehen soll ... rufen 
Sie uns an. Wir nehmen Ihre Bestel- 
lung gern entgegen. 
Tel.-Nr.: 56 5 1 - 4 06 93 oder 
56 51 -4 06 43 
Tronic-Verlag, Postfach 41, 
3444 Wehretal 1 




VC-64 K= 15,50 DM 

D = 19,50 DM 
Hardcopy 
Space-Fighter 
Data-Generator 

ZX-81 K = 10,— DM 

Tonprogramm 

Aldebaran 



Atari 

Startup 

Zeilen-Split 

Chopper-Flight 



K= 12,50 DM 



VC-20 

Multigraph 
All-Rammer 



K= 11,— DM 
D = 15,50 DM 



ZX-Spectrum K = 12,50 DM 

Matheprogramm 

Bongo-Beecatcher 



Apple II 

Library 

Fight 



K= 12,50 DM 
D = 19,50 DM 



Dragon 32 K = 8,50 DM 
Laser-Attack 



TI-99 

Lift Bär 

ASC II DEF TEIL 1 



K - 14,— DM 



Bitte beachten Sie: 

Sie ersparen sich zusätzliche Ko- 
sten (bis zu DM 5,-), wenn Sie per 
Vorkasse (bar, Verrechnungs- 
scheck) bestellen. 

Ausland: • Bestellung nur gegen 
Vorkasse! 




Monster Attack 

Block-Painter 

Epson-Drucker 



Atari 

Painter 
Hardcopy 



K = 14,— DM 
D = 19,50 DM 



Apple II K = 14,— DM 

D = 19,50 DM 
Reversal 
Disk-Menue-Generator 

TI-99 K= 14,50 DM 

D = 19,50 DM 
Maya 
ASC II DEF Teil 2 



ASC II 
Teil 1+2 



DEF 



D = 19,50 DM 



Laser 2001 K = 8,50 DM 
Andromeda 

ZX-81 K = 10,— DM 

Irrgarten 3 D 

ZX-Spectrum K = 14,50 DM 

Solitaire 

Superstat. 

Kleinstes gern'. Vielfaches 



VC-20 

Zyklo 
Meteorit 



K = 11,— DM 
D = 19,50 DM 



Dragon K = 13,— DM 

Hardcopy 

Tontauben- 
schießen D = 19,50 DM' 
Ein Spiel mit sehr guter Gra- 
phik für den C-64 



Im nächsten 
Heft 

Neues, Infos, Tips + 
tricks 

und natürlich wieder jede Menge 
Spiel- und Anwendungsprogramme, 
wie: 

Crazy-Cake 

wieder ein Klasseprogramm für den 
Laser 2007 




Silver-Spar 

für den 77-99 
und 

Jump 

ein Spiel für alle 
ZX-Spectrum Freunde. 

Mit toller Graphik 




5 gewinn« 



für den Atari, wo das Programmieren 
wieder richtig Spaß macht. Lassen Sie 
sich überraschen. Außerdem bringen 
wir Programme für: Cohur Genie, 
Sharp, VC-20, C-64, Dragon 32/64, App- 
le II und den ZX-81. 

Ab 24. 9. 84 bei Ihrem Zeitschrif- 
tenhändler. 

Es verabschiedet sich: 

Die Computronic-Redaktion 



Computronic 
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Tronic-Verlag GmbH 



computronic 

Infos 



Tips und Tricks für Einsteiger, Anfänger und Fortgeschrittene. Informationen und Daten. 
Sinnvolle Anwendungen und Anregungen.. Lernen, anhand von Com p utronic , Programme 
einzugeben und Programme zu schreiben. Von Basic bis Maschinensprache. Neues vom 
Computermarkt über Hard- und Software . 



computronic 

Software-Listings 



Unser Schwerpunkt in den Ausgaben [70%]. Leichte und anspruchsvolle Programme 
werden im Heft abgedruckt, wobei die Redaktion alle bekannten Home-Computer 
berücksichtigen wird. Wenn man will, kann man die Programme einfach eingeben, damit 
spielen oder arbeiten. Alle Konzepte und Begriffe sowie alle Spiele werden vor ihrer 
Anwendung erklärt. 



computronic 

Software -Service 



Abgedruckte Programme können als zusätzlicher Service über den Verlag bezogen 
werden. Wer kein Interesse hat seinen Computer zu »füttern«, oder wem es zu lang- 
weilig wird zu programmieren, kann alle abgedruckten interessanten Spiele auf Cas- 
sette und Diskette erwerben. 



Tron 



Com p utronic erscheint monatlich im Tronic-Verlag. Der Bezugspreis beträgt im Inland 
DM 5,50. Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlag GmbH ■ Postfach 41 ■ 3444WehretaM ■ 05651-40643/40693 



